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SUMMARY 

PROGRAM  LAU/OMENS15S  AND  OMENS16S 

1.  This  Working  Paper  documents  revisions  to  the  old 
OMENS2,R  Computer  Model.  (See  Working  Paper,  OMENS  II  79- 
137-1.) 

2.  0MENS15S  and  0MENS16S  are  both  documented  under  OMENS  III, 
which  describes  the  CREATE  Computer  Programs  which  simulate 
the  operation  of  a  single  F100PW100  complete  engine  installed 
in  an  F- 15/16  aircraft-  The  two  programs  are  nearly  ident¬ 
ical,  but  have  been  split  into  two  models  because  the 
F-15  engine  has  fewer  parts,  slightly  different  flying 
factors,  and  different  factor  rates.  These  new  programs 
have  improved  and  revised  the  earlier  model,  0MENS2,R 
by  adding  the  capability  of  screening  individually  by 
parts  instead  of  by  module,  as  well  as  separate  base  and 
depot  screens.  The  scale  parameters  are  now  computed 
internally  from  the  input  initial  removals  per  1000  FH 
of  the  modules,  and  a  run  program  has  been  created 

to  accept  new  run  parameters  and  spawn  and  execute  either 
program  run  automatically. 

-  3.  Either  model  simulates  the  operation  of  a  single  engine 
through  a  very  long  period  of  future  time.  In  operating 
over  this  extended  period,  the  engine  must  be  removed 
for  repair  from  time- to- time.  Repairs  become  necessary 
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on  the  engine  when  one  of  the  modules  fails  prematurely  or 
whenever  it  requires  replacement  of  an  internal  life- limited 
part.  The  model  tracks  all  the  engine  removals  and  all 
replacements  of  each  module  and  offending  life-limited  part 
through  future  simulated  time.  Records  are  kept  through 
simulated  time  of  the  number  of  removals  and  the  reasons  for 
removal  for  each  module  and  for  the  engine.  Reasons  for 
removal  include  (1)  premature  failure  of  one  or  more  parts, 
(2)  reaching  the  scheduled  operating  time  limit,  or  (3) 
being  screened  out  due  to  the  opportunistic  maintenance 
policy.  ^  The  model  also  computes  maintenance,  pipeline, 
parts  costs,  and  transportation  costs  associated  with  the 
forecasted  removals  and  aggregates  the  costs  for  any  desired 
life  cycle  period  (in  years)  to  aid  in  selecting  that  opti¬ 
mal  maintenance  policy  which  produces  the  least  total  cost. 
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Chapter  I 
Background 


1.  The  F100PW100  engine  in  the  F- 15/16  aircraft  can  be  sub¬ 
divided  into  modules.  It  is  a  relatively  new  engine  concept 
in  that  each  of  the  modules  can  be  individually  removed  and 
replaced  and  each  can  therefore  be  replaced,  purchased, 
stocked,  and  repaired  separately  at  various  levels,  each 
module  as  a  single  unit.  There  are  six  identifiable  modules 
to  date.  They  are  the  augraentor,  inlet  fan,  fan  drive, 
turbine,  low  pressure  core,  gearbox,  and  high  pressure 
turbine.  Each  of  these  modules  has  a  number  of  internal 
life^limited  parts  except  the  augraen  or  which  has  no  life- 
limits.  The  engine  has  been  broken  into  these  modules  to 
facilitate  the  removal  and  replacement  actions  and  to  manage 
the  life-limits  on  the  parts.  The  total  number  of  life- 
limited  parts  in  the  entire  engine  affected  by  the  opportu¬ 
nistic  maintenance  policy  is  51  for  the  F-15  version  and  54 
for  the  F-16. 

2.  When  the  module  is  installed  and  operated  as  part  of  an 
engine,  all  the  life-limited  parts  within  that  module  age 
according  to  the  flying  hour  rate  of  the  engine.  Management 
establishes  limits  on  how  many  cycles  (or  sometimes,  total 
operating  time  units)  the  parts  in  the  modules  may  accrue 
before  they  must  be  replaced.  This  maximum  operating  time 
(MOT)  is  normally  stated  either  in  cycles  or  total  operating 
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time  (TOT)  and  converted  into  its  engine  flying  hour  equiv¬ 
alents  within  the  model  by  applying  actuarial  conversion 
factors  set  by  engine  management.  In  the  examples  shown  in 
this  program,  the  factors  were  reviewed  and  agreed  upon  at 
the  F100  Factors  Review  Meeting,  8-9  August  1979. 

3.  The  life-limits  cause  a  management  problem  since  they 
usually  are  not  set  at  equal  values  across  the  parts.  After 

ft  -  ' 

one  or  more  parts  are  replaced,  the  ages  of  the  parts  become 
mixed.  Whenever  a  part  reaches  its  life-limit,  the  engine 
must  be  removed  from  the  aircraft  and  the  engine  must  be  put 
into  maintenance  where  the  module  containing  that  part  must 
be  removed.  If  the  parts  ages  are  mixed,  a  large  number  of 
engine  and  module  remove,  replace,  and  repair  actions  is 
caused. 

4.  The  opportunistic  maintenance  policy  states  that  when¬ 
ever  an  engine  is  removed  for  repair  because  of  a  problem 
within  a  module,  all  internal  life-limited  component  parts 
of  all  the  modules  should  be  considered  for  possible 
replacement  at  that  time,  based  on  how  close  they  are  to 
their  individual  MOTs.  This  may  cause  the  replacement  of 
more  than  one  module  for  each  engine  removal.  When  compo¬ 
nent  parts  are  replaced  opportunistically,  they  no  longer 
cause  a  near-future  module  (corresponding  engine)  removal 
for  that  component  replacement  due  to  reaching  its  life- 
limit.  Thus,  the  number  of  future  module  removals  for 
repair  is  greatly  reduced,  while  the  number  of  spare  parts 
used  is  increased.  Preliminary  studies  have  shown  that 
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the  removal  rates  for  the  engine  and  modules  can 
be  reduced  as  much  as  20  to  30  percent  by  appropriate  selec¬ 
tion  of  the  opportunistic  maintenance  policy.  See  Working 
Note,  XRS  77-7-1,  November  1977,  "A  Study  of  the  F-100  PW- 
100  Engine  Maintenance  and  Build  Policies." 

5.  This  Working  Paper  will  describe  the  logic  and  the  com¬ 
puter  programs  that  simulate  the  operation  of  a  single 
F100PW100  engine  installed  in  an  F-15/16  aircraft.  The 
models  will  provide  long-run  forecasts  of  engine  and  module 
removals  caused  by  failure,  as  well  as  time  expiration  and 
opportunistic  replacement  of  the  internal  life-limited 
parts.  The  models  also  calculate  composite  (both  usage, 
scheduled,  and  screened)  engine  removals  per  1000  flying 
hours  factors  and  their  corresponding  NRTS  rate  factors. 
These  forecasts  will  be  based  on  appropriate  input  failure 
rates,  MOT  limits,  and  screening  intervals  being  tested  for 
the  opportunistic  maintenance  policy.  These  models  are  con¬ 
sidered  a  major  tool  for  use  in  determining  the  expected 
effectiveness  of  alternate  screening  intervals,  and  their 
use  will  help  the  analyst  in  establishing  effective  policies 
for  the  F100  engine. 
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Chapter  II 

Needs  for  the  Models 


1.  When  the  attempting  to  establish  an  effective  opportu¬ 
nistic  maintenance  policy,  one  must  determine  how  given 
screening  intervals  affect  the  future  repair  frequencies  for 
the  engine  and  its  modules.  A  screening  interval  is  a  pre¬ 
determined,  definite  time  period  immediately  preceding  an 
MOT  limit.  If  a  part's  age  falls  within  the  screening 
interval  when  the  module  is  in  repair,  the  part  will  be 
removed  opportunistically  at  that  time.  In  other  words,  if 
the  part  is  close  enough  to  its  maximum  operating  time  (MOT) 
at  the  time  of  a  module  repair,  then  it  will  be  removed  and 
replaced.  This  opportunistic  action  will  preclude  the  later 
removal  of  the  module  merely  to  replace  this  part  when  it 
would  finally  reach  its  MOT.  In  general,  as  the  screening 
interval  is  increased,  more  parts  are  screened  out  with  each 
module  removal  and  fewer  module  removals  in  total  will  occur 
over  the  given  program  period.  At  the  same  time,  there  will 

i 

also  be  an  increase  in  parts  replacements  since  they  would 
not  have  been  permitted  to  reach  their  full  lifetimes, 
having  been  screened  out  and  replaced  early.  See  Working 
Note  XRS  77-7-1,  "A  Study  of  the  F-100  PW100  Engine  Mainte¬ 
nance  and  Build  Policies"  for  a  graphic  description  of  the 
impacts  of  an  opportunistic  maintenance  policy  using  screen¬ 
ing  intervals. 
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2.  The  F- 15/16  versions  of  the  Opportunistic  Maintenance 
Engine  Simulation  model- -OMENS  III- -were  developed  in  order 
to  forecast  future  engine  removals,  module  removals,  indi¬ 
vidual  parts  replacements,  and  transportation  costs  as  a 
function  of  the  alternative  base  and  depot  screening  inter¬ 
vals  being  tested  for  possible  use  in  the  opportunistic 
maintenance  policy.  The  models  are  calculators  helping  the 
user  assess  the  probable  impact  of  each  screening  interval. 

3.  OMENS  III  simulates  the  operation  of  a  single  engine 
through  a  very  long  period  of  future  time.  In  operating 
over  this  extended  period,  the  engine  must  be  removed  for 
repair  from  time- to- time.  Repairs  become  necessary  on  the 
engine  when  one  of  the  internal  components  either  fails  pre¬ 
maturely  or  reaches  its  maximum  operating  time.  The  models 
track  through  future  simulated  time  all  of  the  removals  and 
replacements  of  the  engine,  the  modules,  and  the  internal 
component  parts.  Failure  times  are  determined  by  making 
random  number  draws  from  lifetime  distributions  for  each 
part.  When  new  parts  are  installed  to  replace  removed  ones, 
a  time  to  failure  is  determined  for  the  replacement  part  and 
its  future  removal  time  is  scheduled  in  the  model.  Records 
are  kept  through  simulated  time  on  the  number  of  removals 
and  the  reason  for  removal  for  each  part,  each  module,  and 
the  engine.  Reasons  for  parts  removals  include  premature 
failure,  reaching  MOT,  reaching  tolerance,  or  being  screened 


out  due  to  the  opportunistic  maintenance  policy.  (Tolerance 
is  the  name  assigned  to  an  opportunistic  removal  of  a  part 
when  it  appears  to  be  close  to  a  failure.  The  aircraft 
mechanic  would  have  the  ability  to  identify  impending 
failure  of  a  certain  portion  of  parts  even  if  they  were  not 
near  MOT,  nor  prematurely  "failed"  but  worn  and  therefore  in 
need  of  replacement.) 


Chapter  III 


Computation  Logic 

1.  Programs  LAU/OMENS15S,  R  and  LAU/OMENS16S,  R  are  Monte  Carlo 
simulation  models.  They  both  produce  removals  per  1000  FH  for  their  respective 
aircraft  (F-15,  F-16)  engines  and  modules,  man  hours  expended,  maintenance 
analysis  and  pipeline  costs  for  the  engine  and  modules,  NRTS  rates,  parts  costs, 
transportation  costs,  and  total  costs. 

2.  The  main  purpose  of  the  OMENS  III  programs  is  to  calculate  when  in  future 
simulated  time  each  part  will  drive  a  module  (and  consequently  engine)  removal 
to  replace  the  part.  The  part  which  fails  or  reaches  its  life  limit  is  then  replaced 
after  making  suitable  records  of  the  removal,  and  the  time  until  next  removal 
for  the  replacement  is  determined  by  making  a  random  draw  from  the  time-to- 
failure  distribution  for  that  part.  While  the  engine  (or  module)  is  in  repair,  all 

of  the  other  modules  (or  parts)  which  have  not  failed  are  screened  to  see  whether 
they  are  close  enough  to  their  maximum  operating  time  (MOT)  limits  so  that 
it  is  economical  to  replace  them  at  this  time.  If  a  part  is  screened  out.  records 
are  updated  recording  which  part  was  replaced  and  why,  a  replacement  part  is 
then  installed  and  its  time  to  next  failure  is  established  by  a  random  number 
draw  exactly  the  same  as  was  done  above  for  a  failure.  The  removals  of  the 
next  higher  assembly  module  and/or  engine  are  also  recorded  by  the  model. 


3.  The  model  maintains  two  counters  for  each  life-limited  part.  One  counter, 
3TTF(3),  keeps  track  of  time  remaining  (in  flying  hours)  until  part  3  is  forecasted 
to  be  removed  because  of  premature  failure.  The  other  counter,  3TTL(3),  keeps 
track  of  how  much  time  remains  until  part  3  would  reach  its  maximum  operating 
time.  The  maximum  operating  time  is  stated  in  the  input  in  either  total  operating 
time  units  or  in  cycles  both  of  which  are  converted  to  engine  flying  hours  by 

an  actuarial  conversion  factor. 

4.  The  simulation  clock  is  advanced  in  the  following  way.  After  all  the  failure 
times  (3TTF(3)'s)  and  MOT  times  (3TTL(3)'s)  have  been  established  for  all  3  parts, 
the  program  finds  the  minimum  3TTF(3)  and  the  minimum  3TTL(3),  and  the  lesser 
of  these  values  is  selected.  This  is  the  time  until  the  next  most  imminent  event. 

The  next  steps  in  the  program  determine  whether  this  minimum  occurs  in  the 
current  report  period  and  whether  on  one  or  more  than  one  part.  That  is,  will 
there  be  multiple  part  failures,  and  will  they  occur  in  the  present  or  a  future 
reporting  period? 

5.  Following  the  determination  of  the  next  most  imminent  event,  this  amount 
of  time  is  subtracted  from  every  3TTF(3)  and  3TTL(3)  and  from  the  time  remaining 
until  the  end  of  the  report  period,  and  it  is  added  to  the  system  clock.  The  subtractions 
are  done  for  one  3  part  at  a  timetind  the  addition  is  done  once  per  engine  removal. 

After  all  the  parts  have  been  updated,  reasons  for  the  removals  of  the  parts  are 
determined.  If  a  part  failed  prematurely,  it  is  classified  into  one  of  two  categories: 
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(1)  a  usage  removal  if  its  time  remaining  until  MOT,  JTTL(J),  is  greater  than 
its  base  screen  or  (2)  a  U-Dep  (usage  to  be  repaired  at  depot)  removal  when  its 
time  remaining  until  MOT,JTTL(3),  is  less  than  or  equal  to  the  base  screen  for 
that  part.  If  a  part  did  not  fail  but  its  time  remaining  is  less  than  or  equal  to 
its  tolerance  interval,  it  is  also  considered  as  a  failure  and  is  removed.  Tolerance 
removals  are  those  part  removals  that  are  expected  to  be  detected  by  maintenance 
personnel  because  they  are  about  to  fail  and  some  symptom  will  be  noticeable. 

If  3TTL(J)  is  equal  to  zero,  this  means  that  there  is  no  time  remaining  until  MOT 
and  the  removed  is  classified  as  an  MOT  removal.  If  the  time  remaining  is  greater 
than  zero  but  is  less  than  or  equal  to  the  base  screen  interval,  the  part  is  classified 
as  screened  out. 

6.  Following  the  appropriate  tabulations  of  the  removal  of  part  3,  the  modules 
containing  the  offending  parts  are  identified  by  removal  codes.  There  is  a  hierarchy 
involved  in  multiple  parts  removals  from  the  same  module.  If  multiple  parts 

are  removed,  all  for  usage  reasons,  the  module  is  declared  a  usage  removal. 

If  the  module  removal  involved  a  mixture  of  MOT  part  removals  and  usage  part 
removals,  the  module  is  classified  as  multiple  parts  with  at  least  one  scheduled 
removal. 

7.  After  completion  of  module  removal  classifications,  another  portion  of 

the  OMENS  1  5S/16S  program  is  entered  to  determine  the  engine  removal  disposition 
and  code.  This  part  of  the  program  adds  up  the  number  of  modules  removed  to 
determine  if  the  engine  is  to  be  NRTS  to  depot  as  a  whole-up  engine  or  not.  The 
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logic  is  stated  as  follows:  if  three  of  the  four  main  modules,  or  which  include 
the  FDT,  HPC,  Inlet  Fan,  and  HPT,  need  repair  and  any  one  of  the  other  modules, 
(excluding  accessories- 1  and  accessories- 2)  also  needs  repair,  the  engine  is  NRTS 
to  depot.  This  is  called  the  Rule  of  4  Policy.  Since  this  logic  is  not  firm,  the 
program  enables  the  user  to  test  for  different  values  other  than  4  and  so  the 
policy  is  often  referred  to  as  the  Rule  of  X  where  X  is  limited  to  the  maximum 
number  of  modules  involved  in  the  engine,  but  three  of  the  four  main  modules 
named  must  always  be  included. 

8.  The  next  portion  of  the  program  tallies  all  of  the  removals  for  parts,  modules, 
and  complete  engine  and  records  the  disposition  of  each.  This  enables  the  output 
talbes  to  be  processed  showing  engine  removals,  what  modules  drove  the  removals 
and  what  parts  drove  the  modules.  Repair  dispositons  are  also  determined  here, 

i.e.  whether  the  modules  are  repaired  at  base  or  depot.  Base  screens  are  applied 
to  see  if  individual  parts  within  the  module  qualify  for  screening  removal  and 
subsequent  replacement.  If  the  engine  is  to  be  NRTS,  depot  screens  are  applied 
at  the  depot  level  for  screening  parts  and  replacement  of  these  parts. 

9.  The  process  described  above  is  carried  on  until  the  entire  simulation  period, 
1SIMYRS  (input  by  the  user),  is  reached.  Output  showing  the  number  of  screened 

out  parts  by  module  and  the  disposition  of  the  modules  is  made  periodically  throughout 
the  run  according  to  the  report  period,  1S1MPRD,  defined  at  input  time.  Other 
more  detailed  output  is  described  later  in  this  Working  Paper. 


Chapter  IV 
Input 


■%> 

1.  The  OMENS  III  program  consists  of  3  other  files  needed 
for  a  simulation  run.  The  main  files  contain  the  program  logic 
and  the  internal  data.  These  files  are  named  LAU/0MENS15S  and 
LAU/0MENS16S  and  are  the  source  program  files.  The  internal 
data  in  these  programs  contain  all  the  names  and  indices  of 
the  engine  and  its  modules  and  all  the  various  life-limited 
parts.  This  data  also  has  all  the  actuarial,  pipeline,  and 
cost  factors  associated  with  each  component.  These  values  such 
as  NRTS  rates,  removal  rates,  cycle,  TOT  or  engine  flying  hour 
limits,  and  costs  are  those  given  in  the  Design  Maintenance 
Concept  or  in  various  other  official  projections  approved  by 

HQ  AFLC/LOP,  Wr i ght- Patterson  AFB,  Ohio  45433.  The  values  will 
be  discussed  in  detail  in  Chapter  VI.  The  program  logic  and 
two  different  sets  of  the  internal  data  combine  to  form  the 
two  source  programs,  0MENS15S  and  0MENS16S  as  previously  stated. 
These  files  are  then  compiled  into  object  decks  named  0MF.NS150 
and  0MENS160  respectively.  These  object  files  are  binary  object 
decks  of  source  programs.  Both  programs  are  already  compiled 
so  they  do  not  have  to  recompile  every  time  a  simulation  run 
is  needed. 

2.  The  file  that  is  most  important  to  the  actual  run  has 
read  permission  and  is  called  LAU/CMENSRUN ,  R.  An  example  run 
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is  shown  at  the  end  of  this  chapter  in  Figure  l,  to  aid  in 
the  explanation  of  the  variable  input  required.  Each  entry 
is  discussed  below  in  the  appropriate  input  order  as  it  appears 
in  the  interactive  input  section  of  OMENSRUN,  R. 

a.  F-15/F-16  Model.  This  first  question  is  self-expla¬ 
natory.  Choose  whichever  model  is  necessary  for  evaluation 
of  either  F-15  or  F-16  aircraft  with  the  appropriate  entry. 

b.  M  Rule.  The  next  entry  should  be  the  X  value  for  the 
policy  Rule  of  X.  This  Rule  of  X  states  how  many  modules  must 
be  in  need  of  repair  before  they  are  sent  to  the  depot  together 
as  an  engine  NRTS.  The  engine  is  considered  a  Policy  Rule 
N’RTS  if  three  of  the  following  four  modules:  HPC ,  HPT,  FDT, 
and  Inlet  Fan,  are  in  need  of  repair  and  the  total  number  of 
modules  needing  repair  equals  or  exceeds  the  value  of  X. 
(Accessories- 1  and  Accessories- 2  do  not  count  as  modules  in 
the  Policy  Rule. ) 

c.  ISMAX .  This  is  the  third  required  entry.  It  is  the 
total  number  of  runs  desired,  and  it  can  take  on  any  value 
from  1  through  9.  This  value  determines  how  many  simulation 

runs  will  be  made  under  one  program  run  (using  the  same  interactive 
input  for  the  data). 

d.  I_P.  This  required  entry  is  the  print  indicator  and 
dictates  either  a  long  or  short  form  of  printout  from  the 
simulation  run.  If  a  complete  long  printout  is  desired  a 

0  should  be  used.  If  a  summary  or  short  form  printout  is 
desired,  a  1  should  be  used. 


e.  KS.  Tlys  next  entry  indicates  if  a  standard  or 

random  seed  is  desired.  If  a  standard  seed  is  desired  a  0  should 
be  used.  It  should  be  noted  here  that  if  a  standard  seed  is 
used  there  is  no  point  in  generating  more  than  one  identical 
seed  run  and  thus  the  ISMAX  entry  (discussed  in  number  3  above 
as  how  many  runs  are  desired)  should  be  a  1.  If  a  random  seed 
is  desired,  a  1  should  be  used. 

f.  KW.  This  entry  dictates  whether  or  not  warmup 

is  desired.  If  it  is  desired  to  have  all  the  parts  start  out 
the  simulation  with  0  accumulated  age  (new  parts)  a  0  should 
be  entered.  If  warmup  is  desired  (a  random  mixture  of  parts 
ages  to  start  the  simulation)  a  1  should  be  input. 

g.  LFCYC .  This  two-position  entry  is  the  life  cycle 
value  ii^ears  used  to  compute  the  objective  function,  i.e., 
the  cost  function  over  a  particular  life  cycle  period. 

h.  SIMYRS.  This  entry  is  the  number  of  simulation 
years  desired  for  the  program  run.  The  entry  must  be  three 
positions. 

i.  MONUTR .  This  data  line  entry  stands  for  the  monthly 
utilization  rate  desired  on  the  engine  in  flying  hours.  The 
entry  must  be  two  positions. 

j.  JTOL .  This  entry  calls  for  a  three-position  toler¬ 
ance  value.  The  tolerance  value  is  an  arbitrarily  assigned 
value  to  simulate  the  removal  of  parts  that  are  so  close  to 
failure  that  signs  of  wear  dictate  their  premature  removals 
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before  they  actually  fail  or  reach  MOT.  The  models  are  usually 
run  with  an  arbitrary  tolerance  value  of  010.  In  engine  flying 
hours,  this  assumes  all  parts  within  10  hours  of  their  failure 
time  will  be  removed  for  tolerance  when  the  module  is  already 
in  for  repair. 

k.  FACT.  This  entry  calls  for  an  overfly  value. 

This  is  an  option  put  into  the  program  to  allow  for  peace  or 
wartime  maximum  operating  time  fluctuations.  For  example,  if 
the  user  wished  to  increase  the  MOTs  on  all  the  parts  by  a  factor 
of  10  percent,  1.1  would  be  the  correct  entry  for  that  factor. 

If  the  MOTs  are  not  to  be  altered,  a  1.0  would  be  entered. 

l.  ISCRN  (J,K).  This  section  of  the  interactive  input 
requests  a  base  screen  and  a  depot  screen  for  every  part  in 
every  module,  including  all  dummy  parts  in  the  engine.  First, 
the  base  screen  is  entered  below  the  name  of  the  part,  then 

a  comma  delimiter  and  then  the  depot  screen  desired.  Constant 
values  from  0  through  9999  are  acceptable  as  input. 

3.  After  the  user  is  finished  with  this  portion  of  the 
interactive  input,  the  program  is  designed  to  print  out  a  repli¬ 
cation  of  the  data  entered.  Immediately  following  this,  the 
computer- generated  job  control  number  prints  out.  Then  the 
user  has  one  more  option  question  to  answer.  If  other  run  para¬ 
meters  are  desired  to  be  tested,  a  1  should  be  typed  and  if 
no  other  runs  are  wanted,  a  0  (zero)  should  be  typed  in  to  ter¬ 
minate  the  program. 
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4.  An  alternative  to  running  this  program  is  to  call  LAU/- 
0MENS.15  (for  F-15)  and  LAU/OMENS. 16  (for  F-16)  and  edit  as 
appropriate.  To  edit,  the  user  should  run  at  least  one  run 
with  LAU/OMENSRUN  so  that  the  spacing  and  proper  entries  will 
be  made  and  revised  correctly.  The  screens  are  read  across, 
first  the  base,  then  the  depot  in  the  same  part  order  as  seen 
in  LAU/OMENSRUN.  See  example  below  to  match  up  requested  run 
variables  entered  in  LAU/OMENSRUN  with  desired  changes  to  OMENS. 15 
or  OMENS. 16  as  appropriate. 


SYSTEM  7CAPP  0  0>*ENS.  1*) 

RFAPY 
♦LIST  . 

0riM##NOR»' 

H>ENT*WP13?<S,Y05/JINYA  0«ENS.15  • 

0030$ t  OPT I ON *  FORTP AN , NOMAP 
0iP4P$  t  SELECT*  LAU/OMFN SI 50 
0t’5rs*  EXECUTE 
W<SDSiLIVITSi^f20r,t5K: 

W7PS1DAT/.*  I* 

PC44  2  0  11  ?(•  2PM  17  Ml  O  1.0 

r9 P4  0  r  pop  pcm  J2C  2f:MP  300  2  POP  3P(?  prop  .Vfi  2W  145  poor 

1  t'O#  1 4*>  pptjr*  pro  poop  340  prapp  330  poor  3w  ?0"0  lorr  prw  1  pro  poor 

1104  icon  poor.  \piAp)  ippp  poor  irp  2000  470  popp  P75  poor  4 1  o  prrp 
ipr#  550  poor  pso  poor  pnr  pr-wp  ppp  pppp  ?po  pr<*r  ppo  prrr  750  poor 

1304  750  poor  *50  poor  1050  poor  ?75  pr&r  375  poor  415  poor  775  pr*pp, 

1 4 0#  7rr  poor  575  poor  *75  prop  775  p^or  3 mo  poor  i?i5  poor  1470  poor 

150*  ?7o  pooo  p7*i  p^or  p7o  poor-  p5p  P5oo  “30  p^or  pr"  pr,or  1  ppp  ?5'^r 

1554  oo^oroorororro 
1 OPSiFNPJOP 

rrndy 
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FIGURE  1 


SYSTF M  7YF0RT  (1  OMENSRUN 

READY  ‘  j 

*RUW'  .  ...  !. 

<W>7  MEMORY  EXPANDED.  USE  SLP'ITS  OR  CORE=  OPTION  FOR  MFXT  PUM 

FOR  A  COMPLETE  EXPLANATION  OF  OMENSRUN  ENTER  I.  OTI'FPWTSF  M 
«<* 

+r()NF 

SYSTEM  7YFORTO  OMENSRUN 
READY 

•+PUN  -  I 

<W>7  MEMORY  EXPANDED.  USE  SLIMTTS  OR  COPE=  OPTION  FOR  NEXT  RUN 


FOR  A  COMPLETE  EXPLANATION  OF  OMENSRUN  FUTEP  1,  OTHERWISE  « 


=0 


■,  f- 


ENTER  1  FOR  FI5  MODEL  I 
ENTER  ?.  FOR  FI -4  MODEL.  i 

=  1 

ENTER  RULE  OF  X. 

=4 

ENTER  THE  HUMBER  OF  RUMS  DESIRED 

INTER  d  FOR  FULL  PRINTOUT,  I  FOR  SHORT  FOPM  PRINTOUT 
=n 

ENT  I  N  0  FOR  STANDARD  SFFD,  I  FOR  RANDOM  SEED 
ENTER  0  FOR  MEW  PARTS  (NO  WARMUP )  ORi  I  FOP  WARMUP 

=  1  t 

ENTER  TWO-POSITION  LIFE  CYCLE  VALUE  | 

=?0  ' 

Ff.TFR  THREE-POSITION  SIMULATION  PERIOD  VALUE 

-?W!  ,  t.  I 

fnTER  TWO-POSITION  MONTHLY  UTILIZATION  RATE  VALUE 

=*1  7 

ENTER  THREE-tPOSITION  TOLERANCE  VALUE, 

ENTER  OVERFLY  VALUE.  NO  OVERFLY,  ENTER.  I  .D 

*1  .0 

ENTER  BABE  SCREEN..  DEPOT  SCREEN  AND  HIT  CARRIAGE  RITUPH 
FOP  rACH  PART  NUMRFR  IN  MODULE  I  CONTAINING  PART  riP'PF.RS 
1  17’ ROUGH  I 
7W  AUG*'  DU**''Y 

*F  j.  .  «_v.  a*.  -  .  -j - -  -  _ - 
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FIGURE  1  (cont.) 

i 


FMfPP  BASF  SCREEN,  DFPOT  SCREEN  AND  HIT  CARPI  AGE  RETURN 
FOR  EACH  PART  NUMBER  IN  "ODULE  7 \  CONTAINING  PART  NUMBERS 
2  THROUGH  B  ! 

I  (M  UFC 

=200,2000  1 

AFPC/FOC 

AOC  .  1 .  .  ... 

=300,2  i 

AFP  '  .  ■  .  .. 

=320,2000 

RCVV/IAIV  , 

=3*0, 2000 

30  1  VANE  .  ■ 

=1 4b, 2000 

302  VANE  j 

=1 45, 2000 

ENTER  BASE  SCREEN,  DFPOT  SCREEN  AND  HIT  CARRIAGE  RETURN 
FOR  EACH  PART  NDMPER  IN  MODULE  3  CONTAINING  PART  NUMBERS 
9  THROUGH  17  , 

300  FAN  DUMMY 
=200,2000 

303  I STG  DISK 
=340.2000 

304  2STG  DIS0 
=330,2000 

305  3 STG  DISK 
=300.2000 
30*  1STG  SEAL 
=  1  000, 2000 
307  FRNT  SEAL 
=1000,2000 
30F  REAR  SEAL 
=  1 00c  ,  ?(W 

309  RETAINER 
= | M0O,200O 

310  2 STG  SEAL 

=1000,2000 
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FIGURE  1  (cont.) 


rfl  L.C 

if  ?"■ 


ENTER  BASE  SCgERIf..  DEPf)f 'sCREfefT'ilND  HIT  CARRIAGE  RETURN 
FOR  EAOU.'P^J  NUMBER  1U  MODULE  M  CONTAINING  PART  NIU'PERS 
IF  THROUGH  39  £  ,,  ,  7  *  •  ! 

"  N  » .  •’  »  »  * 


'.ML,;  ,*** 

4  <43  ^.sEk/T;.. «.  ,;ii  k. ..... 

=4KWW0  u  •  .,  -  • 


'if*  l*'S 


M  I 

s'!  > 


i.:  ■  ‘  i  •  * 

- — u_  _.. .  -L. 

>  * 


!*;  J  ftr:  l  * 


^2$TG  SEAL  .77.  , 

=550,20055  -  "  •  ”  ,  .,'  V 

=?&d?2000  Vt*  '  - . ■■•  y  • "  :4  | 

i»06  9STG  SEAL  '  i  '  *\ 

*?80* 2000  « . v 7  if "  ‘ { 7 :  7 

407-1  »5TG-SEAl7  .,  _ - -_u_  -  -  -L 

=280,2000  •?•■  '  77S  S  '"$*  ..  ! 

408  IISTG  SEAL  ,  *'•  ,  ^  '  <  ..  ,  . 

^6«;2000  3; 

^9  \SSTQ  SEAL  ijjf.' 

4 1  f  !  7STG  '  SEAL  _ 7'  _ 1 

=7W,2W0  eir.  : 

-75V, ?0fK5  ,  '  •■  ^ :,  ■*'■  .« *  v  *  : 

4 !|,.5S70, disk,.  ‘  .  : ! 

*650,2000  7  "/;«•  ■  I 

-iWg,2»w»  ;  TV 

4  j  4 .  ^stg  r>.i  s*^  ,cVv  w; ... ..  *  v  :  V  ■  I 

=275,2000  ^  .  -J  ^ 

4  *2  e^rG.DUSK  •  ’  -v:»  , 

=37$, 2000  '■?>.' 

4i.os.xo  disk/!..;.  ,,,.  ...  .'  .  !}•> 

*4f5,?wo  -  r  >  tip  ■■ 

417  I0ST3  DISK  •  j'!  .  / 

=7^,2000  " 


••• 


iw«. 


v< 

a  ! 

.  ^  ... 


4ie  r»§Tc  or stc 

=7w,^W  :  *’■  >  * 

4  19  ,123X0  DISK.,.. 
=575iV20OO  ’>  . 

4??  13STG_p.IS!4  .  i,  . 
=675,2^0  *  t  .  -  . 

4?  i  hf;/r  SHAirf7  ^  . 

*7 75 4 !Tr‘ 


«  -  * 


v'r  ^  •  i 

^V‘-  1 
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FIGURE  1  (cont.) 


ENTER  BAS',  SCREEN,  PH  POT  SCREEN  AN!)  mj-j  CARRIAGE  Mb']  UHN 
FOR  EACH  PART  NUMUER  I!'  MODULE  5  CONTAINING  PART  BUYERS 
40  THROUGH  4  5 
5r,0  f.pj  r)L!,‘"'Y 

=300,2000  •  ' 

501  1  STG  PIS'1' 

=  1  215,2000 
50?  2STG  PIF«f 

=1470, POOP  l 

503  ?5TG  DTSP 
=?  70,2  WO 

504  1ST0  FPLT  I 

=270,2000 

505  1 STG  PPLT 
=270,?O00 

ENTER  RASE  SCREE*' ,  DEDOT  SCRFEN  ANti  HIT  CARRIAGE  RETURN 
FOR  EACH  PART  NUMBER  IN  MOPULE  6  CONTAINING  DART  NUMBERS 
46  THROUGH  40 
6(0  FPT  DUMMY 

=250.2500  .  " 

601  2 STG  FIST 
=330,2500 
60?  4 STG  PI  ST 
=300,2500 
603  4 STG  DTS'C 
= 1 000 , 2500 

FFTEI-  BASE  SCREEN,  Pl'POT  SCREEN  AMD  HIT  CARRIAGE  PETURN 
FOR  FAC"  PART  NUMBER  If  MODULE  7  CONTAINING  PART  NUMBERS 
50  THROUGH  V* 

POO  (;pny  DIMO'Y 

=r  ,o 

FfTRP  BASE  SCREEN,  DEPOT  SCREEN  AND  HIT  CARPI  AGE  RETURN 
EUR  EACH  PART  NUMBER  IN  VOPUI.E  p  CONTAINING  PART  NUMBERS 
5  1  THROUGH  51 
°P0  ACCS  DUMMY 
=f-:,0 

.  •  C  ’  '  A  U 

$  *  I  DENTiN  PIP’*,  XPS/J  T  NY  A  0»'  FNSRUN 

S* OPTION i FORTRAN, NOMAP 

$  *  SELECT*  LAU/OMEMS 150 
$* EXECUTE 

5  *  LI  "I  TS*  3  ,  , ,  51' 

Si PAT/ « I* 

#4  2011  ?o  poo  17  IP  1.0 

o  fi  poo  2000  !?0  7  000  300  2  000  320  2000  360  2000  |45  2 POO 

#  145  20P0  200  2000  340  poor*  330  2000  3  mm  2000  1000  ?W  1000  pfMM 

O  |  OOP  2000  I'W)  7000  (000  ?pom  100  2000  4  70  2000  875  2000  410  2000 

*  550  popr  opci  7000  ,7pM  2000  280  2000  280  7000  280  ?0f'o  750  ?0OO 

6  7 50  7000  650  ? 000  1050  700M  775  2000  375  2000  4J5  70100  775  2WO 

y/  700  2' 'HO  575  2  000  *75  7000  775  7000  300  2000  1215  2 000  1470  2000 

270  2'CO  ?70  ? (WO  270  7000  750  ?50»  330  2500  300  7500  1000  750" 

o  0  o  M  0  1  0  0  o  0  0  0  ffl  0 

S»HNP.t()R 

SNIJMB  if  n?04t 

ENTER  1  TO  TEST  OT'IER  PUN  PAPAMRTERSl 
ENTER  0  TO  TERMINATE  PROGRAM. 


Chapter  V 
Output 

1.  The  complete  output  from  a  run  of  program  LAU/OMENSRUN,R  is  in  several 
sections  as  follows: 

a.  Actuarial  Input  Factors. 

b.  Engine  Removals  Report  Period  Summary. 

c.  Engine  NRTS  Analysis. 

d.  Module  Removals  Report  Period  Summaries. 

e.  Module  Removals  Summary. 

f.  Parts  Removed  Summaries. 

g.  Objective  Function  -  Engine. 

h.  Objective  Function  -  Modules. 

i.  Life-Limited  Parts  Replacements  Costs. 

j.  Objective  Function  Summary. 

k.  Screen,  NRTS  rate  and  Removals  Per  1000FH  Summary. 

l.  Averages  Summary. 

2.  Sections  (a)  through  (k)  inclusive  will  be  printed  as  output  if  the  long  printout 
is  requested.  If  the  short  form  printout  is  requested,  sections  a,  b,  c,  e,  j,  and  k  are 
printed  as  output.  Individual  output  sections  are  discussed  in  the  following 
paragraphs. 

3.  Actuarial  Input  Factors.  This  output  section  displays  all  the  actuarial  input 
data  necessary  for  a  program  run.  The  engine  factors  appear  first,  showing  the 
depot  and  base  pipeline  factors,  stock  list  price  and  depot  and  base  maintenance 
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cost  factors.  The  depot  cost  factor  is  the  average  repair  cost  of  an  engine  at  depot 
and  the  base  cost  factor  is  the  average  maintenance  cost  at  base  level.  (As  a  rule, 
extensive  engine  maintenance  is  not  carried  out  at  base  level,  thus  the  cost  is  quite 
low.)  Next,  the  module  factors  appear  with  input  variable  comparable  to  those  of 
the  engine.  In  addition,  each  module  has  a  section  displaying  input  factors  for  the 
parts.  All  the  tables  are  the  same  configuration  and  described  below. 

a.  Part  No.  Number  assigned  to  the  part  in  the  module  and  used  as  cross- 
reference  to  the  part  in  the  program. 

b.  Part  Name.  The  part  name  as  it  will  appear  and  be  referenced  throughout 
the  program. 

c.  Convert  Ratio.  This  is  the  factor  used  to  convert  cycles  or  total 
operating  hours  into  engine  flying  hours  so  that  the  program  can  clock  in  the  same 
units. 

d.  Max  Time.  This  is  the  input  maximum  operating  time  assigned  to  the 
parts  in  the  G337  Report. 

e.  Base  Screen.  This  is  the  screen  chosen  by  the  program  user  to  apply 

against  the  life  remaining  on  the  part  in  questino  at  the  base  level. 

f.  Depot  Screen.  This  is  the  screen  chosen  by  the  program  user  to  apply 

against  the  life  remaining  on  the  part  in  question  at  the  depot  level. 

g.  Scale  Parameter.  This  is  the  value  needed  to  generate  failures  according 
to  a  Weibull  distribution.  It  is  computed  internally  in  the  program  from  the  initial 
removals  per  1000  flying  hours  factor  for  the  dummy  parts.  The  other  parts  in 
each  module  are  set  arbitrarily  large  since  they  do  not  generate  unscheduled 
removals,  only  maximum  operating  time  and  screened  removals. 

h.  Unit  Price.  This  is  the  average  stock  list  price  for  replacing  the  part. 
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4.  Engine  Removals  Report  Period  Summary.  This  table  shows  which  seed  run  is 
being  reported,  the  simulation  period  and  report  period  chosen,  the  life  cycle 
period  and  monthly  utilization  rate  desired,  whether  or  not  warmup  and  random 
seeds  were  used  for  the  run,  the  number  of  modules  involved  and  the  Rule  of  X 
value.  It  also  displays  an  inut  engine  NRTS  rate  and  removals  per  1000  FH  and 
computed  outputs  for  these  two  terms.  The  chart  immediately  following  this  shows 
by  report  how  many  and  which  modules  failed  or  reached  MOT  causing  an  engine 
removal.  See  Table  2. 

a.  Report  Period  K.  This  K  value  tallies  how  many  report  periods  were 
desired  in  the  simulation  run. 

b.  Report  Period  Hours.  This  valu^  is  the  amount  of  engine  flying  hours  that 
have  been  reached  since  the  first  K  report  period  started.  It  is  cumulative  so  that 
its  last  value  equates  to  the  value  chosen  for  the  entire  simulation  run. 

c.  One  Module  Fails  Early.  This  column  tallies  how  many  times  an  engine 
was  removed  due  to  a  single  module  failure. 

d.  Many  Modules  (Fail)  Early.  This  column  tallies  how  many  times  an  engine 
was  removed  due  to  multiple  module  failures. 

e.  Many  Modules  U  +  T.  This  column  records  how  many  times  an  engine  was 
removed  due  to  a  combination  of  usage  and  time  (MOT)  module  removals  for 
failures  and  scheduled  checks  respectively. 

f.  One  MOT  Reached.  This  column  records  how  many  times  an  engine  was 
removed  due  to  a  single  scheduled  module  removal. 

g.  Total.  This  column  now  adds  the  other  columns  up  row-wise  for  a  total  by 
report  period. 
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h.  Totals.  This  line  appears  at  the  bottom  of  the  table  and  adds  each  column 
for  a  total  of  the  different  removal  reasons  listed  and  a  grant  total  on  the  far  right 
under  the  Total  column  described  in  (g)  above. 

5.  Engine  NRTS  Analysis.  These  tables  appear  on  page  three  of  the  printout. 
Table  3  displays  a  distribution  of  module  removals  that  were  NRTS  to  the  depot  as 
single  modules  and  Table  4  shows  those  that  were  NRTS  as  part  of  the  engine  Rule 
of  X  Policy.  See  Table  3. 

a.  Item.  This  column  displays  which  module  (by  item  number)  is  involved. 

b.  Base  RTS.  This  column  shows  which  modules  did  not  get  sent  to  the  depot 
as  lone  modules  but  were  classified  as  base  repairs. 

c.  Initial  NRTS  Percent.  This  column  displays  input  NRTS  %  rates  as 
established  by  management. 

d.  Usage  NRTS.  This  column  gives  the  total  number  of  times  during  the 
simulation  run  that  each  module  was  removed  and  NRTS  as  a  lone  module  for  usage 
purposes.  It  is  computed  by  comparing  a  random  number  to  the  initial  NRTS 
percent  for  each  module.  If  the  random  number  is  less  than  or  equal  to  the  NRTS 
%  the  module  is  considered  to  be  NRTS.  If  the  random  number  is  greater  than  the 
NRTS  %,  the  module  is  considered  to  be  Base  RTS. 

e.  U-Screen  NRTS.  This  column  shows  the  total  number  of  times  during  one 
complete  simulation  run  that  each  module  was  removed  for  usage  and  at  the  same 
time  found  to  be  within  its  screening  interval  and  thus  NRTS  as  a  lone  module. 

f.  Scheduled  NRTS.  This  column  gives  the  total  number  of  times  during  one 
complete  simulation  run  that  each  module  was  removed  and  NRTS  as  a  lone  module 
for  scheduled  purposes,  i.e.,  reaching  its  life  limit. 
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g.  Screen  NRTS.  This  is  the  seventh  column  in  the  table  and  it  records  the 
total  number  of  times  each  module  was  removed  and  NRTS  alone  for  screening 
reasons. 

h.  Total  NRTS.  This  column  adds  up  all  the  NRTS  alone  categories  for  each 
module  and  shows  the  toted  of  the  NRTS  alone  removals  by  module. 

i.  Final  NRTS  Percent  Alone.  This  column  lists  the  final  NRTS  percent  for 
each  module  (those  ru>t  part  of  the  engine  Rule  of  X  Policy).  It  takes  the  total 
NRTS  alone  removals  and  divides  that  number  by  the  base  RTS  plus  the  total  NRTS 
removals  for  each  module. 

j.  Removals  Per  1000  FH.  This  is  the  last  column  of  the  first  table.  It 
records  the  final  removal  rate  for  lone  modules  by  adding  the  RTS  plus  total  NRTS 
alone  and  dividing  this  total  by  the  simulation  period  and  multiplying  by  1000  to  get 
removals  per  1000  FH. 

6.  Engine  NRTS  Analysis.  NRTS  with  Engine  NRTS  Policy.  This  table  shows 
similar  information  as  in  Table  3,  except  all  modules  were  part  of  the  engine  NRTS 
due  to  the  Rule  of  X  Policy,  where  X  was  determined  at  the  beginning  of  the 
simulation  run.  See  Table  4. 

a.  Item.  Number  assigned  to  the  module  involved.  Statistics  are  read  by 

row. 

b.  Usage  NRTS.  This  column  records  all  the  usage  removals  of  modules  that 
went  to  the  depot  as  part  of  the  engine  due  to  the  Rule  of  X  Policy  or  the  initial 
engine  usage  NRTS  applied. 

c.  U- Screen  NRTS.  This  column  records  by  module  which  removals  were  for 
usage  and  at  the  same  time  were  found  to  be  eligible  to  be  screened  out.  These 
modules  would  therefore  be  NRTS.  However,  they  are  part  of  the  engine  Rule  of  X 
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Policy  so  they  become  classed  as  an  engine  NRTS  and  are  not  counted  as  module 
NRTS. 


d.  Scheduled  NRTS.  This  column  gives  the  total  number  of  times  during  the 
simulation  run  that  each  module  had  reached  its  MOT,  but  was  sent  to  the  depot  as 
part  of  the  Rule  of  X  Policy  and  removed  there. 

e.  Screen  NRTS.  This  is  the  fifth  column  shown  in  this  table.  It  records  the 
total  number  of  screened  modules  that  were  sent  to  the  depot  as  part  of  the 
complete  engine  for  removal  and  repair  at  the  depot  level. 

f.  Total  NRTS.  This  adds  the  toted  number  of  module  removals  for  cause 
that  occurred  at  depot  as  a  result  of  going  with  the  complete  engine  because  of  the 
Rule  of  X  Policy. 

g.  Not  Effected  But  NRTS.  This  last  column  records  how  many  times  good 
modules  were  sent  to  the  depot  as  part  of  a  whole  engine  due  to  the  Rule  of  X 
Policy.  These  modules  were  not  effected  by  malfunctioning,  reaching  MOT,  or 
screening  and  otherwise  would  not  have  been  removed  or  repaired  as  a  separate 
module.  These  modules  are  simply  "going  along  for  the  ride"  as  part  of  an  engine 
NRTS. 

h.  Total.  This  line  simply  adds  up  how  many  total  modules  were  sent  to  the 
depot  as  engine  NRTS  for  the  various  removal  reasons  explained  above. 

i.  Total  Engine  NRTS.  This  line  shows  how  many  times  the  engine  was 
considered  NRTS  due  to  the  Rule  of  X  Policy. 

j.  Engine  NRTS  Percent.  This  is  the  percent  of  engine  removals  that  were 
NRTS  to  the  depot  as  part  of  the  Policy. 

k.  Total  Removals  Per  1000  FH.  This  line  calculates  the  total  number  of 
engine  removals  per  1000  FH  by  taking  the  total  number  of  removals  and  dividing 
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by  the  total  number  of  flying  hours  in  the  simulation  run  and  multiplying  the  result 
by  1000. 

!•  Engine  Usage  NRTS.  This  is  the  total  amount  of  times  an  engine  was  sent 
to  depot  as  an  unscheduled  engine  NRTS  by  applying  the  initial  engine  NRTS  rate. 

m.  Rule  of  X  NRTS.  This  is  the  total  amount  of  Policy  engine  removals  sent 
to  the  depot. 

7.  Module  Removals  Report  Period  Summary.  The  next  set  of  tables  shows 
module  removal  summaries  on  a  separate  table  for  each  module.  Each  table  is 
alike  so  the  following  description  appears  only  once  and  applies  to  all  Module 
Removals  Report  Period  Summary  Tables.  The  core  is  used  as  an  example  on 
Table  5.  The  heading  entries  are  self-explanatory. 

a.  Report  Period  K.  This  K  value  identifies  each  period  by  number. 

b.  Report  Period  Hours.  This  value  is  the  amount  of  engine  flying  hours  that 
have  been  reached  since  the  first  K  report  period  started.  It  is  cumulative  so  that 
its  last  value  equates  to  the  value  chosen  for  the  entire  simulation  run. 

c.  One  Part  Fails  Early.  This  column  tallies  how  many  times  the  module  was 

removed  due  to  a  single  part  failure.  1 

d.  Many  Parts  (Fail)  Early.  This  column  tallies  how  many  times  the  module 
was  removed  due  to  multiple  part  failures. 

e.  Many  Parts  U  +  T.  This  column  records  how  many  times  the  module  was 
removed  due  to  a  combination  of  usage  and  time  (MOT)  part  removals  for  failures 
and  scheduled  checks  respectively. 

f.  One  MOT  Reached.  This  column  records  how  many  times  the  module  was 
removed  due  to  a  single  scheduled  part  removal. 

g.  Parts  Screened  Out.  This  column  records  how  many  times  a  part  was 
screened  out  of  the  module  opportunistically  during  the  report  period  K. 
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h.  Total.  This  column  adds  the  other  colmns  up  row-wise  for  a  total  by 
report  period  of  parts  removals. 

i.  Totals.  This  line  appears  at  the  bottom  of  the  table  and  adds  each  column 
for  a  total  of  the  different  parts  removed  as  listed  and  a  grant  total  on  the  far 
right  under  the  Total  column  described  in  (h)  above. 

j.  Removals  Per  1000  EFH.  This  line  is  followed  by  input  base  removals  and 
computed  output  base,  depot  and  total  removals  per  1000  EFH. 

k.  NRTS  Percent.  This  line  is  followed  by  input  base  level  NRTS  and 
computed  base  level,  depot  level  and  total  NRTS  percent. 

l.  Percent  Depot  Repair.  "  This  line  compares  the  total  number  of  depot 
removals  with  the  total  number  of  removals  for  cause  and  yields  percentages 
respectively. 

8.  Module  Removals  Summary.  This  tables  shows  the  removal  reasons  for 
each  module  and  how  many  times  each  was  removed  due  to  the  parts  needing 
replacement.  See  Table  6. 

a.  M.  Number  assigned  to  module  involved. 

b.  Module  Nomenclature.  Name  assigned  to  module  involved.  These  names 
are  used  throughout  the  printout. 

c.  Use.  This  column  shows  how  many  times  each  module  was  removed  due  to 
a  failure  of  one  of  its  parts. 

d.  U-Dep.  This  column  records  usage  removals  that  also  qualified  to  be 
screened  and  shows  which  modules  had  parts  removed  and  how  many  were  removed. 

e.  Time.  This  column  tallies  which  modules  were  removed  due  to  scheduled 
parts  replacements  and  how  many  were  removed. 

f.  Screen.  This  column  records  screened  parts  removals,  showing  how  many 
were  screened  and  from  which  modules. 
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g.  Total.  This  column  totals  parts  removals  by  module. 

h.  Grand  Total.  This  row  totals  the  individual  columns  and  gives  a  grant 
total  at  the  far  right. 

9.  Parts  Removal  Sumamry.  This  set  of  tables  shows  parts  removal  summaries, 
one  table  per  individual  module.  Each  table  shows  all  the  life-limited  parts  in  the 
module  as  well  as  the  "dummy"  part.  The  dummy  part  accounts  for  all  the 
premature  removals  experienced  by  the  module.  All  the  reasons  for  removals  are 
shown  for  each  part.  The  value  of  the  screen  interval,  whether  originally  input  as  a 
percent  of  MOT  or  a  constant  is  also  shown.  The  core  module  is  used  as  example  in 
Table  7. 

a.  Part  No.  3.  Number  assigned  to  part  involved. 

b.  Part  Name.  Self-explanatory. 

c.  Usage  Removals.  This  column  records  all  the  parts  removed  for  usage 
purposes  on  the  module. 

d.  Tolerance  Removals.  This  column  records  removals  of  parts  that  were  so 
close  to  failure  that  signs  of  wear  dictated  their  premature  removals  (before  they 
actually  failed  or  reached  MOT). 

e.  U-Dep  Removals.  This  column  records  parts  usage  removals  that  also 
qualified  to  be  screened. 

f.  Time  Removals.  This  column  records  all  parts  removed  due  to  reaching 
their  life  limits. 

g.  Screen  Removals.  This  column  records  screened  out  parts  in  the  module. 

h.  Total.  This  column  totals  parts  removals  by  module. 

i.  Base  Screen.  This  column  shows  the  constant  screen  applied  to  each  part. 

j.  Module  Totals.  This  row  totals  up  the  number  of  each  type  of  module 
removal  that  ensued  due  tc  t  needing  repair  or  replacement. 
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10.  Objective  Function  -  Complete  Engine  Maintenance  Costs.  The  objective 
function  relates  input  cost  data  to  computer  generated  engine  removals  data  to 
assign  maintenance  and  pipeline  costs  to  be  chosen  life-cycle  period.  See  Table  8. 

•a*  Engine  Removals.  This  value  is  previously  computed  based  on  the  Rule  of 
X  chosen,  the  engine  usage  NRTS  applied,  and  the  total  amount  of  engines 
reparable  this  station  (RTS). 

b.  *"LFCYC"/"S1MYRS".  These  values  are  inputted  by  the  user  before  the 
run.  The  desired  life  cycle  divided  by  the  total  number  of  simulation  years 
becomes  the  factor  needed  to  scale  down  the  total  NRTS  removals  to  a  life  cycle's 
worth. 

c.  Rem/Replace  Cost/Removal.  This  is  the  average  maintenance  cost  per 
engine  removal  at  base  level  attributabls  to  the  engine  itself,  excluding  additional 
module  costs. 

d.  Average  Base  Cost  Pe  Removal.  This  figure  is  computed  by  a  compli¬ 
cated  section  of  program  logic  vhich  counts  in  which  modules  were  removed  and 
how  much  dollars  were  spent  each  time  to  remove  and  replace  them.  It  is 
cumulated  and  divided  by  the  total  number  of  base  engine  removals  to  obtain  this 
average. 

e.  Per  t/ Engine.  This  input  value  is  the  average  depot  repair  cost 

experienced  by  San  Antonio  ALC. 

f-  Total  "Life  Cycle"  Years  Depot  and  Base.  This  column  is  computed  by 
multiplying  15  years  worth  of  NRTS  removals  times  the  average  depot  repair  cost 
and  adding  this  to  the  15  years  worth  of  base  removals  times  the  average  base  cost 
per  engine. 

1 1.  Objective  Function  -  Module  Maintenance  Cost  With.  See  Table  8,  bottom. 
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a.  Item.  This  column  displays  which  module  (by  item  number)  is  involved. 

b.  Module  Nomenclature.  This  column  denotes  the  name  and  number 
assigned  to  the  different  modules  in  the  program  simulation. 

c.  Total  NRTS  Module  Removals.  This  number  is  the  total  NRTS  modules 
that  were  NRTS  as  part  of  the  engine  Rule  of  X  Policy. 

d.  *"LFCYC"/"S1MYRS".  These  values  are  inputted  by  the  user  before  the 
run.  In  general,  the  value  computes  a  life  cycle  from  a  particular  simulation 
period.  Both  the  life  cycle  length  and  the  total  simulation  period  are  chosen  by  the 
user  before  the  run  is  made. 

e.  Depot  Cost  Factor.  This  value  is  input  data  internal  to  the  program.  It  is 
the  average  repair  cost  for  each  item  (module)  at  the  depot  level. 

f.  Total  "Life  Cycle"  Years  Depot.  This  value  is  computed  for  each  module 
by  multiplying  the  life  cycle  value  of  NRTS  removals  for  each  module  times  the 
depot  cost  factor,  yielding  a  total  life  cycle's  worth  of  costs  by  module  for  depot 
repair. 

g.  Total.  This  value  cumulates  the  total  life  cycle  cost  at  te  depot  for  each 
module  and  yields  a  total  additional  cost  to  the  depot  engine  repair  cost  for  the 
same  life  cycle  period. 

12.  Objective  Function  -  Complete  Engine  Pipeline  Costs.  See  Table  9. 

a.  Daily  Demand  Rate. 

(1)  Removal/ 1000  FH.  This  value  is  the  final  removals  per  1000  flying 
hours  for  the  engine  computed  in  the  simulation  run.  It  is  used  here  to  determine 
the  daily  demand  rate  in  conjunction  with  the  conversion  factor  below. 

(2)  *"MONUTR'7 30000.  This  value  is  multiplied  times  the  removals  per 
thousand  hours  to  compute  a  daily  demand  rate.  Monutr  is  a  term  meaning  monthly 
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utilization  rate  and  is  input  by  the  user  at  the  beginning  of  the  run.  Thus,  the 

removals/ 1000  FH  multiplied  by,  say  17  flying  hours  per  month  is: 

REMOVALS  *  17  =  DAILY  DEMAND  RATE 

1000  FH  30 

b.  NRTS  Rate.  This  is  the  percentage  value  of  engine  removals  that  were 
NRTS  to  depot  divided  by  the  total  number  of  engine  removals. 

c.  NRTS  Pipe.  This  column  lists  the  input  standard  depot  pipeline  repair 
days  for  the  engine. 

d.  Base  Rate.  This  is  the  percentage  value  of  engine  removals  that  were 
repaired  at  base  divided  by  the  total  number  of  engine  removals. 

e.  Base  Pipe.  This  value  is  input  data  internal  to  the  program  and  shows  the 
standard  base  pipeline  repair  days  for  the  engine. 

f.  Pipeline  Quantity.  This  value  is  computed  by  taking  the  daily  deamdn 
rate  and  multiplying  it  by  the  percentage  of  NRTS  engines  times  its  standard  depot 
pipeline  repair  time  plus  the  percentage  of  base  repaired  engines  times  its  standard 

base  pipeline  repair  time.  The  equation  is: 

NRTS  BASE 

PIPELINE  =  DAILY  DEMAND  RATE  *NRTS  +  RATE  *BASE 

QUANTITY  RATE  100  PIPE  100  PIPE 

g.  Stock  List  Price.  This  value  is  inputted  and  is  the  approximate  procure¬ 
ment  cost  in  today's  dollars  of  an  F 100PW 100  engine. 

h.  Total  Cost.  This  is  a  computed  value  found  by  multiplying  the  pipeline 
quantity  times  the  stock  list  price. 

13.  Objective  Function  -  Module  Maintenance  Costs  Alone.  See  Table  10. 
a.  Item.  As  previously  noted. 
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b.  Total  NRTS  Module  Removals.  This  column  records  the  total  amount  of 
module  removals  (by  module)  that  needed  depot  level  repair  and  were  sent  as  a 
separate  unit  rather  than  with  the  whole  engine. 

c.  *"LFCYC''/"SIMYRS".  These  values  are  user  inputted  at  the  beginning  of 
the  run.  It  is  used  to  scale  down  total  removals  for  the  entire  simulation  period  to 
a  life  cycle's  worth  of  removals.  This  is  done  by  multiplying  the  total  removals  by 
the  factor  consisting  of  the  life  cycle  divided  by  the  toted  number  of  years  in  the 
simulation. 

d.  Depot  Cost  Factor.  This  column  lists  input  data  that  was  computed  by 
averaging  the  amount  of  manhours  spent  to  repair  each  module  at  the  depot.  Then 
a  cost  per  manhour  factor  was  applied  to  obtain  the  average  depot  cost  per  module. 
Then  this  factor  is  carried  in  the  input  data. 

e.  Total  Base  Module  Removals.  This  column  records  the  total  amount  of 
times  each  module  was  removed  and  repaired  or  replaced  at  base  level. 

f.  **'LFCYC"/"SIMYRS".  See  Item  13(c)  above. 

g.  Base  Cost  Factor.  This  column  shows  input  data  that  was  computed  by 
averaging  the  amount  of  manhours  spent  to  repair  each  module  at  the  base.  Then  a 
cost  per  manhour  factor  was  applied  to  obtain  the  average  base  cost  per  module 
and  this  factor  is  carried  in  the  input  data. 

h.  Total  "LFCYC"  Years  Depot  and  Base.  This  column  obtains  its  values  by 
taking  the  life  cycle's  worth  of  depot  removals  times  the  depot  cost  factor  and 
adding  to  this  value  the  life  cycle's  worth  of  base  removals  times  the  respective 
base  cost  factor. 

14.  Module  Pipeline  Costs.  This  table  shows  the  pipeline  cost  breakdown  incurred 
by  module.  See  Table  11. 
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a.  Item.  As  explained  previously. 

b.  Daily  Demand  Rate. 


(1)  Removals/ 1000  FH.  These  values  are  the  final  removals  per  1000 
flying  hours  computed  in  the  simulation  run  for  each  module. 

(2)  ♦"MONUTR11/ 30000.  This  value  is  multiplied  times  the  removal/ 1000 
FH  above  to  compute  a  daily  demand  rate.  Monutr  means  monthly  utilization  rate 
and  is  user  inputted  at  the  beginning  of  the  run.  It  is  divided  by  30,000  because 
there  are  approximately  30  days  per  month  and  the  removal  rate  is  given  per  1000 
FH,  hence  30  *  1000  =  30000. 

c.  NRTS  Pipe.  This  column  lists  the  standard  depot  pipeline  repair  days  for 
each  module. 

d.  Base  Pipeline.  This  column  lists  the  standard  base  pipeline  repair  days  for 
each  module. 

e.  Pipeline  Quantity  Per  Module.  This  column  finds  the  fraction  of  depot 
removals  times  the  depot  pipe  and  adds  to  it  the  fraction  of  base  removals  times 
the  base  pipe  and  then  multiples  this  sum  by  the  daily  demand  rate  for  each 
module. 

f.  Module  Price.  This  value  is  inputted  and  is  the  approximate  procurement 
cost  in  today's  dollars  of  each  module. 

g.  Cost  Per  Module.  This  value  is  computed  for  each  module  by  multiplying 
the  respective  pipeline  quantity  times  the  module  price. 

15.  Transportatin  Costs.  This  table  shows  the  transportation  costs  incurred  by 
modules  when  sent  alone  and  by  entire  engines  when  sent  to  the  depot  for  repair. 
See  Table  11(a). 

a.  Item.  Self-explanatory. 


b.  Nomenclature.  Self-explanatory. 

c.  NRTS  Removals.  This  column  records  the  total  amount  of  module 
removals  by  module  and  by  engine  that  needed  depot  level  repair  and  were  sent  as 
a  separate  unit  or  as  an  entire  engine  with  separate  transportation  costs  applied. 

d.  *"LFCYCI,/,ISIMYRS11.  These  values  are  user  inputted  at  the  beginning  of 
the  run.  It  is  used  to  scale  down  total  removals  for  the  entire  simulatin  period  to  a 
life  cycle's  worth  of  removals.  This  is  done  by  multiplying  the  total  removals  by 
the  factor  consisting  of  the  life  cycle  divided  by  the  total  number  of  years  in  the 
simulation. 

e.  Transportation  Cost/Removal.  This  value  is  data  internal  to  the  program. 
It  was  found  by  taking  a  weighted  average  of  removals  occurring  at  various 
bases  —  the  cost  of  sending  the  item  to  the  depot  from  each  location  is  known  — 
and  computing  an  average  transportation  cost  for  the  engine  and  each  module. 

f.  "LYCYC”  Year  Costs.  This  figure  is  found  by  multiplying  the  average 
transportation  cost  per  removal  by  the  15-year  average  NRTS  removals  found  in 
the  fourth  column. 

16.  Life-Limited  Parts  Replacement  Costs  for  a  Particular  Life  Cycle.  These 
tables  are  alike  and  show  parts  replacement  costs  for  a  user-inputted  life  cycle  by 
module.  Since  the  chart  is  repeated  for  each  module,  Table  12  shows  an  example 
chart  for  the  core  module. 

a.  Part  Number.  The  number  assigned  to  the  life-limited  and  "dummy”  parts 
identified  in  the  simulation. 

b.  Part  Name.  Self-explanatory. 

c.  Toted  Scheduled  Removals  ("SIMYRS").  This  column  shows  the  total 
number  of  scheduled  removals  for  the  entire  simulation  for  each  part  shown. 
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d.  Scheduled  Removals  ("LGCYC").  This  column  shows  the  fraction  of 
scheduled  removals  that  took  place  during  the  desired  life  cycle  input  by  the  user. 

e.  Unit  Price.  This  column  shows  the  average  stock  list  price  for  each  part. 

f.  Total  "LFCYC"  -  Year.  This  column  multiplies  the  Scheduled  removals  in 
the  chosen  life  cycle  times  the  unit  price  to  yield  parts  replacement  costs  for  each 
part  during  the  desired  life  cycle  period. 

17.  Objective  Function  Summary.  This  table  pulls  together  the  maintenance  costs, 
pipeline  cost;,  and  parts  costs  to  yield  a  toted  cost  of  operating  one  engine  for  the 
entire  life-cycle  period.  See  Table  13. 

a.  Item  Name.  Self-explanatory. 

b.  Maintenance  Costs. 

(1)  Alone.  These  are  maintenance  costs  incurred  by  the  individual 
modules  when  services  alone  and  not  as  part  of  an  engine  NRTS.  Base  and  depot 
costs  are  separated  here  also. 

(2)  With.  These  are  maintenance  costs  incurred  by  the  modules  when 
they  were  part  of  an  engine  NRTS  policy. 

(3)  Totals.  This  column  simply  adds  maintenance  costs  alone  with 
maintenance  costs  with  engine  NRTS  policy. 

c.  Pipeline  Costs.  These  values  were  previously  computed  and  defined  in  the 
simulation. 

d.  Transportation  Costs.  As  previously  recorded. 

e.  Parts  Costs.  As  previously  recorded. 

f.  "LYCYC"  -  Year  Costs.  This  column  simply  sums  the  maintenance  costs, 
pipeline  costs,  and  parts  costs  by  module,  and  by  module  totals  and  finally  row-wise 
for  a  grand  total  on  the  far  right,  yielding  life  cycle  total  costs. 


18.  Screen,  NRTS  Rate  and  Removals/1000  FH  Summary.  See  Table  14. 

a.  Item  Name.  Self-explanatory. 

b.  Screen  Interval.  This  value  is  the  constant  or  percent  of  MOT  value  in 
engine  flying  hours. 

c.  Initial  NRTS  Rate  %.  This  column  is  data  internal  to  the  program. 

d.  Initial  Rem/1000  FH.  This  column  is  also  data  internal  to  the  program  as 
defined  in  the  Design  Maintenance  Concept. 

e.  Final  NRTS  Rate  %.  This  column  recaps  the  output  NRTS  rate  percent 
computed  in  the  simulation. 

f.  Final  Removals  Per  1000  FH.  This  column  recaps  the  output  removals/ 
1000  FH  computed  in  the  simulation  run. 

19.  Average  Data.  The  average  da*a  id  found  in  Table  15.  This  section  of  the 
program  averages  the  data  obtained  from  the  seed  runs  (if  greater  than  one  run  was 
requested).  The  engine  removals  by  report  period  summary,  modules  removals 
summary,  objective  function  summary,  and  final  NRTS  rate  and  removals  per 
1000FH  are  all  averaged  as  shown  in  the  table.  Each  summary  has  been  previously 
explained  in  this  section. 
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TABLE  2 


JSNSIKE  REMOVALS 
REPoRl_ PERIOD  SUMMAR? 
fioopwioo  ( r i *> ) 


PAGE 


DATE 


1 T  0 1 7  9 


l'l ME  12.14  StiC  11 


SEED  PUN  1 


SIMULATION  PERIOD  IS  4q8qQ 


REWT^OMDl  R 
VRTS  X 


INPUT  OUTPUT 
5 ,75011  7,4755 

7.00  7,21 


REPORT  PERIOD  IS  4Q8Q 

LIFE  PERIOD  FOR  OBJECTIVE  FuNSTION  IS 
HOHTHLI  UTILIZATION  RaTb  ~TJ 


20  TERRS 
~TrTLTITGWUR^ 


WARMUP 


YES 


SEED  IS  RANDOM 
NUMBER  OF  MODULES 


RULE  OF  X  WAS  4 


EMGiNB  removals 

- mrsnna^rifirf^~w  -  T- «  v-r  ■*  <•-”*  *»'«  * 

*  *  USAGE  *  *  *  TIME  ... 

TE^OtfT - OWE  MOOT-  Mints:  KXFT  ~o*e— 

PERIOD  FAILS  MODS,  MODS.  MOT 

UtT - REACHED- 


>W 


It - HOURS - EATL7- 


gmr 


TOTAL 


TABLE  3 


ENGINE  NRfS"  ASTlTSTS  “  PICE  3 

- bisthbutIon  or  hoduib  nrnpvals - - - 

- gffUSF-TJO 'W6*  ALOIS) 

ITEM  NTS  NRTSX  NETS  jiRTS  NRTS  N*TS  NRIS  X  ALONE  1000PH 
mm^ __.r“ — ~  ----- 

AUG  '64  4760  6  Of "  0  “0  6  8757  "  "1,7157 

»CCl  00.  0  21  28  49  100.00  1,2010 

— PAN - 5  56700 - 6  0  7  31 - 44 - 89,80  172010’ ' 

COR  7  76.00  17  0  12  12  41  85.42  1,1765 

— HPT - 21 — 34700 - Tl - 0 - 3 - 39 - 51 - 71767 - 1,8137" 

PDT  14  36.00  3  0  3  25  31  68,89  1,1029 

GBX  1  55700  9  "o  n  5 - 20 - 957T& . -"075 147 

ACC2  81  0 , _  ' _  0  0  0  0  0.  1,9853 


TOTAL  193 _  52  0  57  135  244 
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TABLE  4 


distribution  or  module  removals 


NRTS  KITH 

ENGINE 

NRTS  POLIO Y 

USAGE 

u. screen 

SCH5D 

SCREEN 

total 

NOT  AFFECTED 

ITEM 

NRTS 

•  •••• 

Nils 

NRTS 

~RTTs 

NRTS 

BTTT  TRTS 

AUG 

3 

0 

0 

0 

3 

19 

ACC  1 

13 

0 

22 

T2 

■  O' — - 

FAN 

3 

0 

0 

19 

22 

0 

COR 

4 

'  0 

_TB - 

22 

- 0 

HPT 

2 

0 

0 

20 

22 

0 

roi 

0 

0 

1 

21 

12 - 

0 - -  - 

GBX 

2 

0 

0 

0 

2 

20 

ACC2 

8 

>5 

o  - 

- IT 

0 

T4 

TOTAL 

22 

~75 

"  1 

TOO 

123  “ 

53 

mi'Himmaj  ■  ium 

22 

ENGINE  NRTS  X 

7.21 

TOTAL  REM/IOOOrH 

7V4755 

ENGINE  USAGE  NRTS 

21  EULE  Of  X  NRTS  1 
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TABLE  5 


MOdUlJTHEKSYALS  PTfC^B  T 

REPORT  PERIOD  SUWMAPt 


406  CORE 


“  * 

SEED  RUN 

SCREEN  IS  200C>; 

1 

T*PE  IS  CONSTANT 

NUMBER  OF  PARTS 

22 

MONTHLY  UTILIZATION  RATE  IS  17 

REPORT  PERIOD  IS 

4080 

T0DULlT1TgH5PTIS  ^I^JNE  +  RRTS  WITH  ENSlRE) 


* 

*  USAGE 

*  *  * 

time 

•  t  • 

REPORT 

ONE  PART 

KAN  I 

many 

ONE 

PARTS 

PERIOD 

FAILS 

PARTS 

prts 

MOT 

SCREENED 

K 

HOURS 

EARLY 

early 

U*T  REACHED 

OUT 

TOTAL 

1 

4080 

1 

1 

1 

0 

- 3 - 

- 5 -  “ 

2 

8160 

0 

4 

0 

0 

5 

9 

3 

12I4TT 

0 

“X 

T”  “ 

cr 

2 

8 

4 

16320 

0 

1 

1 

0 

5 

7 

~S 

2040U- 

~ ' 1 

2 

3 

~a 

_  r- 

7 

6 

24480 

2 

0 

n 

0 

4 

6 

7 

28560 

~~T~ 

2 

1 

O' 

- T 

- 8" 

8 

32640 

0 

1 

2 

0 

2 

5 

9 

36720 

-  -?r 

2 

“2 . 

'"T 

3 

7 

10 

40800 

1 

3 

1 

0 

2 

7 

TOTALS 

7 

21 

12 

0 

SO 

70 

INPUT  *****  PINAL  ****** 

BASE  frlSE  bBPO*  *6**^  P*R 

LEVEL  LEVEL  LEVEL  CAUSE 


REM/1000EPH  0,6100  1,1765  0,5392  1,7117 

RETS  PERCENT  76,0)  ”85.42 

X  PEP  REPAIR _  IQO.uO  90, 0 0 
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TABLE  6 


iraDULR  kEHUVALS  SURNART - WTf. - VI — 

DATE  110179  TTWE-^TTW  5ECTTT 


MODULE 

'*  PRIMARY  * 

*  t~~w — 

‘ 

M 

nomenclature 

USE 

U-DRP 

TIME 

SCREEN 

total 

■BM 

1 

7  "  0 

AUPKENTOR 

'  71 

0 

~T~ 

-  -o 

73 

2 

100 

ACC  1  nli 

0 

0 

21 

50 

71 

3 

w 

TAN 

14 

0 

T~ 

'5TT  ‘ 

T9 

U 

«•  o 

CORE 

28 

9 

12 

30 

79 

— r 

w 

J>4li  1 

34 

3 

by 

- or 

6 

600 

PAN  DA  TUR 

17 

0 

4 

4b 

6» 

~T 

im 

fcj., ...  m 

~T7 

TT 

TT 

O' 

?3 

8 

9  0 

ACC2  WOLL 

69 

0 

0 

0 

8 1 

GRAND 

rOTAL 

267 

0 

58 

235 

569 

44 


*'*•*•***  RBKOVlLS  *  *  ir*  rT  *  8^5* 

"S  aGR  TOLERANCE  U*OEP  TjMf  SCREEN  TOTAL  SCREEN 

•  v  »«•»«»  —  m—mm  •*•**•■* 


SEAL 
R  SEAL 
0  SEAL 
G  STOT 
6  SEAL 


407  10STG 
UOB  11STG 

409  12STG 

4 10  1 3STG 

411  hSTG 


STG 

31  u 1 3  6STG 

32  414  7stG 

33  415  ASTG 

31*  4T6"5ETG 
35  417  10STG 


1 

37  419  12STG 

— JT  5T0  ITSfG 
39  421  REAR 


SEAL 

SEAL 

SEAL_ 

SSTT 

DISK 


DISK 

DISK 


DISK  0 

trrsx  o' 

DISK  0 


s 

DISK  0 

DISK  V 
SHAFT  0 


1050 

m 

375 

-tit 

775 


TABLE  8 


flBjrCTTVfc  fUNCTION -  r*GE  16 

COMPLETE  EKslHE  MAINTENANCE  COSTS - 

_  ♦  »  ♦  ♦  FACTORS  *  *  *  * 

_ ENGINE  *  20/  REN/REP  AV.BASF  AV.**P.  20-YiSAR 

fcEMYLS  200  t/REM  C5T/REM  CST/KEM  C'G'STS - 

BASE  REMVLS  300  30.  000  161  Ub30 

_  base  RTS  276  27.  BQQQ _  1558  _ 43333 

1R6S2  32234 

S0^97 


DEPOT  V H T S  22  2,2000 


gITId  TOTAL 


objective  function 


Module  maintenance  cret  tty-tt 


— *20/ 

■  >I4  1*H 

ITEM 

NOMENCLATURE 

MOD  RlMoVLS 

200  ( 

COST  rACTOR 

DEPOT 

AUG 

700 

AUGMENTOR 

3 

U.3UU0 

~  7199 

- 869 

ACC  1 

100 

ACC  1  WLL 

22 

2,2000 

146 

1861 

FAN 

3  0  0 

TIN 

~T2 

2*67“ 

SfTTT -  ' 

COR 

40  V 

CORE 

22 

2,2000 

5*22 

1 192P 

4PT 

500 

K  r  Tt'RB 

22 

2,:oco 

1301 

2642 

PDT 

P*\ 

TAN  DR  TUV 

22 

2,2000 

^*59 

430? 

«»1jJ 

«or 

5TAR10X 

2 

0,2000 

*55 

ISO 

ACC  2 

9  00 

ACC2  MOIL 

e 

0,8000 

•  ?*» 

99 

TABLE  9 


OBJECTIVE  FHtteTIOW 


COMTlBTE  EnGlFT~PXPJtlhF  C0BT5  -  -- 

DAILY  DEHAND  R*TT  TT  KT  S  B  A  S^E - PITILIBE  STIC  LIST  TOTAL 

REM/1  jOOFH*  17/3000'  RATE  PiPE  RATE  PIPE  QUANTITY  PRICE  COST 

- * -  "»■  1 - - - T- - - - - * - — TT - 

7.U755  o~  o  JU2TS1  K2  5*  ~OZ7B  B  OTOB 2WJ - 1700000 —  55*16 


TABLE  10 


OBJECTIVE  FONCnOtJ  PAGE  17 


MODULE  MAINTENANCE  COSTS-ALONE 


ITEM 

TOTAL  NRTS 
HOD  REMVLS 

*20/ 

200 

DEPOT 
cost  Fact 

Total  base  *jo/ 
mod  pemvls  joo 

base 

cost  fact 

TOTAL  20  TR 
depotebase 

•••* 

AUG 

6 

0,6 .OC 

2899 

64 

6;490C 

773 

6  6  9  B 

ACC  1 

49 

4,900''' 

8u6 

0 

o: 

846 

4145 

TAN 

44 

UTC^OT 

266  7 

5 

0^5^00 

8  39 

12153 

COR 

41 

4,  roc 

5422 

7 

C'.7900 

2500 

23980 

HPT 

53 

5,300'' 

120 1 

21 

“TTTJT'K) 

850 

3149 

FDT 

31 

3,1000 

1959 

14 

i;u»oo 

536 

6822 

GBX 

20 

c,/ 

O 

~j 

o 

m 

o» 

755 

1 

0, 1900 

l8"0 

15TT 

ACC2 

0 

o. 

124 

8  1 

a:  1400 

0 

0 

TOTAL 

63474 

48 


TABLE  11 


MODUlB  PIPELINE  COSTS 


DAILY  DEMAND  PATE 

NPTS 

BASE 

VXPEtllE 

module 

COST  PEI 

ITEM 

BBM/1000FH* 17/30r'  0 

PIPE 

■ 

PIPE 

H5TT7W01 

PRICE 

HOD OLE 

AUG 

1.7157 

0,0  ‘09722 

41 

4 

0.08617 

360000 

2510 

ACC  1 

1.2TTTC 

070OO 5TT.  6 

~H 

2 

0  TOR  21 7 

C 

0 

PAN 

1,2010 

0,07068  6 

36 

4 

0,02298 

177000 

3943 

COP 

1,1765 

0,0  06667 

«  8 

X” 

“OiOj'Bf  T 

7(14000 

19790 

HPT 

1,8137 

0.0-10278 

24 

5 

0701993 

131028 

2505 

PDT 

1,1025- 

— 0.0  .'06260 

29 

5 

0.0 1 3  A  6 

169000' 

2274 

GBX 

0,5147 
— =r  Offer 

0.0  02917 
~77T7r  TT757T 

23 

- S - 

2 

- «_ 

0  0  f)  6  f  7 

— oTomr 

23000 

- n- 

160 
'  0 

- T6T*I  31T82 


TABLE  11a 


mni p ohaiiob  costs 


NITS 

*  20/  TRANSIT 

20-yeaR 

it*m 

nomenclature 

reroVals 

200  csT/bbm 

OOsTS 

IMG 

COMPLETE  ENG, 

22 

2.2000 

5000 

nooo 

AUG 

700  augmentof 

6 

0,TOW 

2016 

1239 

ACC! 

100  ACC  1  W1L 

49 

4,9000 

0 

0 

PAN 

300  FAN 

44 

4,4000 

P  8  8 

3907 

COB 

400  COKE 

41 

4,1000 

2013 

8253 

HPT 

500  H  P  TURB 

"TT 

5,3000 

41T 

2241 

POT 

600  PAN  DR  TUB 

31 

3,1000 

11*7 

3431 

GBX 

600  GEARBOX 

20 

"T.oTOtr 

2*0 

400 

ACC2 

900  ACC2  WOLL 

0 

0. 

0 

0 

modules 

total 

19471 

GRAND 

total 

30471 

TABLE  12 


.  - 1 9 

LIFE-LI.1ITED  PABTS  REpiACEWBWT  COftTi 


FOB  20-IEaR  lirE  CYCIE 

>>>  400  COR^ 

PART 

PAPT 

TOTAL  ScHED 

SCHED  RHVL 

WRIT 

total 

NQ. 

NAME 

RrtVL(2C0*«) 

(2orn) 

PRICE 

20-YF 

18 

400  CORE  DUfiMY 

44 

4 .40000 

0 

0 

19 

401  4STG  SEAL 

15 

1.50000 

1893 

1639 

20 

402  5STG  SEAL 

T 

0.60000 

1180 

768 

21 

403  6STG  SEAL 

18 

1.80000 

1124 

2563 

22 

404  7STG  SEAL 

IS 

■W’M'M'I 

1163 

1395 

23 

405  8STG  SEAL 

44 

4.40000 

1P42 

7664 

24 

406  9STG  SEAL 

43 

1*18 

_"4B07 

25 

407  10STG  SEAL 

44 

4.40000 

3J92 

14484 

26 

4  0fi  11  STG  "SEJI 

44 

4.4UUW 

'  3TTFB  " 

14555 

27 

404  12STG  SEAL 

43 

4.30000 

3369 

14486 

2fl 

410  1  J  STG  SEAL 

~S~ 

■'Hl'l'I'M 

6JB3 

477F 

29 

411  4 STG  DISK. 

7 

0.70000 

4f  08 

3295 

30 

4  12  3'stg  DISK 

T 

C7WO00 

3173 

7503" 

31 

413  6STG  DISK 

5 

0.50000 

8134 

4067 

32 

4W7STG  inSK- 

44 

4 .40000 

6TS9 

-  29761 

33 

415  8STG  DISK 

23 

2 . 30000 

4448 

10230 

- JU 

LILMf  1  iVliJJI 

18 

1  ."80000 

— 81 49 

15388 

35 

417  1  STG  DISK 

a 

0.80000 

4441 

3552 

36 

418  1  1  STG  DISK 

9 

'O.TOtfOTT 

*|4F~ 

'  T673 

37 

419  1 25TG  DIS< 

13 

1.30000 

4141 

6033 

38 

470  T? STG  DISC 

9 

“O'.saoiro- 

8  §  8  6 

7577- 

39 

421  REAR  SHAFT 

8 

C. 80000 

9893 

7834 

KOOUIP  lUfOtH  16b** 90 
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TABLE  13 


OBJECTIVE  FUNCTION  PAG?  21 

SUMMARY 


F 1 0  iPWI JO (FI?) 


DATE 

110179 

TIME 

12,14 

SEC  11 

*  *  *  MAINTENANCE 

COSTS 

*  *  * 

PIPE 

TRANS 

.  ITEM 

ALONE 

BASE 

ALONF 

DEPOT 

with 

DEPOT 

totals 

LINE 

COSTS 

PORT 

COSTS 

PARTS 

COSTS 

2D -TEAR 
COSTS 

147213 

ENG 

48163 

>2234 

80397 

T5B16 

1  TO  0  0 

AUG 

4959 

1739 

869 

7567 

2510 

1239 

-  -jj 

T1316 

ACC  1 

0 

4145 

1861 

60o6 

0 

0 

88291 

74297 

FAN 

4  19 

11734 

5867 

18020 

3943 

3107 

132863 

15 973 3 

CQB 

^750 

22230 

11928 

359^8 

19790 

8253 

165490 

229441 

HPT 

1784 

6T65 

2642 

10791 

2b  0? 

2  24  i 

1  T9  122 

134659 

FDT 

750 

6072 

4309 

11131 

2274 

3431 

105421 

122257 

GBX 

17 

1510 

150 

1677 

160 

400 

2237" 

ACC2 

0 

0 

99 

99 

0 

0 

0 

99 

NODTOT 

9679 

53795 

27725 

91199 

31182 

19471 

591187 

733039 

_ CBABD 

TOTALS 

171596 

86938 

30471 

591187 

880252 

52 


. . . .  ■  -■  - * - 


♦ 

TABLE  14 


♦ 

SCREEN  *  NRTS  RATE  8 

REMOVALS  »E* 

1000  TH  * 

-  SUMMART 

— DTTE - rrtrrrr- 

DEPOT  *  I  N  I  T 

I  A  L  * 

*  *  F  I  N  A  L 

«  * 

item 

MAKE 

SCREEN  itRTl- 

INTERVAL  rate  X 

TTFH7 

looo  rn. 

Vats 
rate  x 

REn/ 

1000  FH. 

7.4755 

1.7157 

1.2010 

COKPLSTZ  r.»8. 

7".  00 

T.21 

700  AUGKEN'iOR 
100  ACC  1  WLL 

0  9.00 

2o'-'0  0. 

1.5067 

0. 

bT^T 

100.00 

3oo  fan 

400  CORE 

2 ; " )  56.00 

2 o  0  76.00 

0.3050 

0.6100 

89,60 

85.42 

1.1765 

500  H  P  TURB 
600  PAK  DR  TUP 

TcTTo  a'S.ffU" 

25  0  36.00 

TfY9iI0 

0.3965 

7'1 ,62 
68.89 

i  •  o»  J  7 

1.1029 

800  GEARBOX 

900  ACC2  V011 

o  s57^ 

0 

T72~519 

1.7179 

95724 

0. 

G.5147 

1.9853 

RULE  OF  X  WAS 

u 

RON 

TABLE  15 


- *>yy>  ^aviraue  uxTA*<t<< 

—  - eNsine  removals  yrtf  r 

- - rbtpout  period  summart 

- - fFT5T 

#  * 

“BIie - rnrnrg  riBB  ,2,1*  '5rc~  3 

8EED  RU^ri  *EM/1000|H  5.7b00  7.4877 

"SIMULATION  PERIOD  IS  4o60<i  ^R*s  *  7*00  5,89 

arPrtST  PERIOD  IS  4080  ... _ 

LIFE  PERIOD' FOB  ObJeCTItL  FuHgTieiTTl - WW" 

MONTHLY  UTILIZATION  RATE  IS  17  TLYING  HOURS 
‘wTrmup  yes 

SEED  IS  RANDOM _ _  _  — 

HUMBER  OF  MODULES  8  RULE  OF  X  WAS  4 

- — - ENGiN|  rE (TO VATS 

“  *  *  USAGE  -*" *  *  ««•  TIme"7V7 

REPORT  one  MOD.  MANX _ J!M! _ - 

—PERIOD  -  "  FAILS  MODS,  HODS.  MOJ 

K  HOURS  EARLY  EARLY  V+X  REACHED  TOTAL  _ 

— 1 - 4080 - n  T  4  3  ' 

2  8160  21  J  8 _ 3 _ S5 - 

"3 — tzt4d—  tb  y  i  i  i: 

4  16320  23  t»  5  2  35  _ 

- 5 - JTTXrOO  T7  4  7  3”  TT 

6  24480  18  4  6  2  30 

—  7— UOTO  72  . .  *  J  33 

8  32640  14  «  5 _ 1-  _ JI _  _ 

9  36777  Vf  '5  5  T  18 

10  40800  17  b  4  3  19  _ 

- - mm-S - *»5 - **r»-  »*••* 

TOTALS  184  4b _ 32  28 _ _ 


SEED  TOTAL  399 
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TABLE  15  (cont.) 


>»> 

*  AVERAGE  DATA 

*-«<< 

MODULE 

REMOVALS  SUMMARf 

PAGE 

2 

DATE 

110179 

TIME  12.15  SEC 

3 

MODULE 

*  *  * 

PRIMARY  *  *  *  * 

M 

nomenclature 

USE  U 

*01? 
•  •••• 

TIME  SCREES 

TOT  At 

1 

7' 0 

AUGrtENTOR 

71 

0 

0  0 

71 

2 

VO 

Acer  NLL 

c 

0 

2V  “97 

61 

3 

3r,0 

FAN 

14 

0 

8  45 

61 

4 

4»'>0 

CORF 

IT- 

0 

16^  29 

6T 

5 

500 

H  P  TURB 

39 

0 

a  57 

10# 

6 

~^0 

T5 

0 

- 5 - 93 - 

6 1" 

7 

8-  0 

GEARBOX 

14 

0 

11  0 

21 

8 

TW 

ACC?  koll 

33 

0 

(1  0 

GRAND 

-1 

«< 

H 

C 

h 

263 

0 

64  218 

54T~ 

liM" 


■  ■ — —  1,11  "■ 


TABLE  15  (cont.) 


A7IF  AG2T  D*TR~*  <T<< 


ObJBCTI  VE_rrJNCTTOK - PTT»E - 3 

SUMMARY 


F 10  PW100(ri5) 


DATE 

1  10179 

TIME 

12,15 

SEC  3 

*  *  *  maintenance 

COSTS 

*  *  * 

PIPP 

TRANS 

20-YEAR 

ALONE 

ALONE 

TTiTh 

LTKp 

TOFT 

parts 

ITEM 

BASE 

DEPOT 

depot 

TOTALS 

COSTS 

COSTS 

COSTS 

COSTS 

rnm^mrn 

ENG 

49235  ' 

26  373 

7561? ' 

50952 

9000 

135560 

AUG 

LWfT 

l7T§ 

1T59 

7586 

7440 

1139 

U 

11265 

ACC  1 

0 

4230 

1523 

5753 

0 

0 

65429 

71182 

PAN 

"  ~  5TTT 

11468  “ 

4W0 

T677T 

3«  64 

3818 

1 2o5  1  0 

T52V71 

COR 

1625 

23857 

9759 

35241 

21159 

8857 

165513 

230770 

HPT 

UkVfl 

■urn 

2162 

11083 

2742 

7453" 

119122 

135400 

PDT 

563 

6464 

3526 

10553 

236® 

3653 

101790 

118365 

79 

1359 

75 

T5J3 

147 

3oQ 

y 

ZvMy 

ACC2 

0 

0 

62 

62 

0 

0 

0 

62 

MOOTOT  9433 

56083 

23066 

BB562 

327?l 

20360 

580372 

722055 

GRAND 

TOTALS 

164190 

83673 

29380 

580372 

857615 

SEED 

TOTALS 

328367 

167346 

58758 

1 16Q741 

1715212 

>>>>  * 

AVERAGE 

DATA  *  <«<< 

*  SCREEN ,  NRTS  RaXE  «  REMOVALS  pf*  1000  FH  * 
- STmiTOR* 


DATE - 110179 -  HHE  12.13  SEC  3 


*  *  F  IVR* A  L  *  * 


DEPO*  *I«lIlAL 


mr 

NAME 

INTERVAL 

- (TO 

rate  % 

- TEN  / 

1000  FH. 

NRTS 
RATE  X 

Rftt/ 

1000  FH. 

1 

i 

1 

t 

• 

- CoKpLfTF  FK57 

7770 

5*7500 

5.89 

7  •  437T 

~~  TOO  XU  GUT  mi  ~ 

0 

9.70 

1.5047 

9.05 

1.6299 

100  ACC  1  WLL 

2V  0 

0. 

9. 

100.00 

1.2255 

300  PAN 

20  r0 

5«.00 

0JSC50 

87.76 

1.2010 

400  CORE 

- son  h  tt  TiriB — 

2  •'  0 
— 2TT5 

T6.00 
34.00 - 

0,6100 

~  0.-9110  - 

87.05 

--77.-69 

1.2377 

1  ,-HH 

600  PAN  OF  TUP  25(‘C  36.00 

'600  GEARBOX -  0 - S5;00 

900  ACC2  VOLl  C  0. 


0.3945 

0.2919 

1.71*9 


76,11 

76.39 

0. 


0.5760 

1.9118 


RULE  OP  X  WAS  4 


SEED  TOTALS 


NRTS  X  11,79  REMOVALS  14,9755 


VI.  Program  LAU/OMENSRUN,  R 


1.  This  program  is  written  in  FORTRAN  for  use  on  the  CREATE 
system  in  AFLC.  The  CREATE  system  is  a  time- sharing/batch 
computer  system  which  uses  the  H635  computer.  This  program 

is  run  in  time-sharing  and  automatically  spawns  and  executes  in 
the  background  as  a  batch  run.  It  is  stored  in  file  LAU, 
under  the  name  OMENSRUN,  and  can  be  called  after  the  user 
is  logged  on  under  the  YFORT  system  by  typing  OLD  LAU/OMENSRUN ,R. 
An  alternate  to  running  OMENSRUN  is  to  log  on  under  the 
CARD  system  and  type  OLD  LAU/0MENS.15  for  the  F15  and  OLD 
LAU/OMENS.16  for  the  F16.  See  Chapter  IV,  Paragraph  4 
for  details. 

2.  Purpose  of  Program;  This  model  simulates  the  operation 
of  a  single  typical  engine,  F100PW100,  installed  in  an 

F15  or  F16  aircraft.  Each  engine  has  m  modules  and  each 
module  has  j  parts,  one  per  module  may  be  a  dummy  part 
which  is  included  so  that  module  removals  not  caused  by 
one  of  the  other  j-1  parts  can  be  accounted  for.  The  engine 
removals  are  driven  by  removals  required  on  the  m  modules 
Cone  of  which  is  the  engine  "dummy,"  i.e.,  Accessories 
-  2).  The  module  removals  are  driven  by  the  part  removals 
required  on  the  j  parts.  Premature  removal  rate  factors, 
initial  NRTS  rates,  and  life  limits  are  needed  as  input 
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1 


for  the  model.  The  model  produces  long  run  (base  on  input 
life  cycle  time  removals),  classified  into  usage,  time, 
and  screened  out  reasons  for  removal.  Report  periods  are 
variable,  also  stated  at  input  time.  The  model  is  used 
in  (1)  simulation  studies  whose  objectives  are  to  identify 
preferred  opportunistic  replacement  policies  for  each  module, 
(2)  to  calculate  composite  removals  per  1000FH  and  correspond¬ 
ing  aggregate  NRTS  rates,  (3)  to  calculate  an  objective 
function  yielding  maintenance,  pipeline,  transportation, 
and  parts  costs  for  a  chosen  life  cycle  period. 

3.  The  Dimensions  and  Declarations  are  presented  at  the 
very  beginning  of  the  program.  Comment  statements  are 
used  to  set  off  different  segments  of  the  program. 

4.  The  Main  Routine  starts  out  setting  the  date  and  time 

in  hours,  minutes,  and  seconds.  Following  this,  initializa¬ 
tion,  reading  input  data,  warmup  options,  and  setting  the 
Weibull  Scale  parameters  are  done.  The  main  computations 
are  carried  out  in  the  many  GO  TO  statements.  Refer  to 
the  comments  preceding  the  GO  TO  statements  to  determine 
what  that  particular  section  of  program  logic  computes. 

5.  The  rest  of  the  program  contains  a  number  of  subsections 
and  initialization  logic.  The  following  paragraphs  will 
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provide  additional  comments  about  each  of  these  sections. 

6 .  Initialize  Average  Accumulators/Set  Date  and  Time. 

This  section  of  the  program  initializes  the  average  accumu¬ 
lators  for  the  averages  tables.  The  date  and  time  are 
also  set  in  this  section. 

7.  Read  Input  Data.  This  section  of  the  program  reads 
all  the  internal  data  for  the  program  run.  This  data  can 
only  be  changed  by  accessing  the  source  deck  and  recompiling 
the  program. 

8.  Find  Scale  Parameter.  This  subsection  finds  the  scale 
parameters  for  the  Weibull  distribution  to  generate  failures 
for  the  dummy  parts  within  each  module.  The  initial  (unsched¬ 
uled)  removals  per  1000  flying  hours  factor  is  needed  to 
compute  these  scale  values. 

9  .  Initialize  Accuiuulators/Def  ine  User- Inputted  Run  Variables. 
This  section  initializes  all  program  accumulators  and  defines 
and  reads  the  user- inputted  run  variables. 

10.  Initialize  Failure  Times  and  Scheduled  Removal  Times. 

This  section  of  the  program  loads  initial  random  flying 
hours  till  unscheduled  removal  (failure)  for  each  part 
into  JTTF(J)  and  reads  each  parts  MOT,  and  converts  it 
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to  equivalent  flying  hours  by  dividing  it  by  the  conversion 
factor  R(J),  given  in  input. 

11.  Warmup.  This  section  of  the  program  randomizes  the 
starting  ages  of  each  part. 

12.  Minimum  Failure  and  Scheduled  Time.  This  subsection 
of  the  program  finds  the  part  having  the  minimum  time  till 
failure  and  which  has  the  minimum  time  till  MOT. 

13.  Count  Multiple  Part  Removals.  This  part  of  the  program 
determines  if  more  than  one  part  is  to  be  removed  for  failure 
(due  to  equal  failure  times)  or  more  than  one  has  the  same 
time  remaining  till  MOT  removal. 

14 .  Update  All  Parts  to  Remaining  Time  in  Report  Period. 

This  section  of  the  program  simply  subtracts  the  amount 
of  time  from  all  parts  that  were  not  removed  in  order  to 
update  them  to  the  time  that  the  removals  of  the  offending 
parts  took  place. 

15 .  Report  Period  Removal  Tabulations. 


a. 


This  is  a  large  section  of  the  program  that  contains 


logic  necessary  for  each  report  period  of  the  program  run. 

It  begins  by  initializing  the  removal  code  arrays  for  the 
parts  and  the  modules.  Then  each  part  is  aged  by  the  minimum 
time  to  removal  and  the  time  remaining  in  this  report  period 
is  decremented  by  that  amount.  This  part  of  the  program 
contains  the  coding  logic  for  each  reason  for  removal  of 
the  part  in  question. 

b.  Next  the  program  assigns  a  removal  code  to  all 
removed  parts.  Immediately  following  this  logic  the  removal 
reasons  for  module  removals  are  determined  according  to 
what  parts  were  removed  from  these  modules.  When  this 
step  is  accomplished,  the  reason  for  removal  of  the  engine 
can  be  determined  as  well  as  whether  or  not  the  Rule  of 
X  Policy  applies. 

■6 .  Record  Engine  Removals.  This  subsection  records  engine 
removals  and  module  removals  by  report  period,  and  separates 
these  removals  as  NRTS  or  RTS. 

17.  Module  Removal  Summary.  This  subsection  of  the  program 
totals  all  the  module  removal  reasons  by  primary  cause. 

18.  Part  Removals  by  Cause.  This  section  records  part 
level  removals  by  cause. 
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19.  Failure  and  Scheduled  Removal  Times.  This  section 


calculates  new  removal  times  through  a  random  number  gener¬ 
ator,  UNI FM1( SEED) . 

20.  Totals .  This  part  of  the  program  calculates  all  the 
output.  The  parts  level  totals,  module  removal  totals, 
line  totals  by  report  period,  total  NRTS  and  RTS  for  modules 
and  engine  are  all  calculated  here. 

21.  Output  Tables.  This  routine  generates  the  majority 
of  the  output  tables  for  the  program  run. 

22.  Objective  Function  Logic.  This  part  of  the  program 
computes  the  values  needed  to  form  the  objective  function. 

23.  Objective  Function  Tables.  This  subsection  contains 
the  necessary  logic  to  print  out  the  objective  tables  near 
the  end  of  the  program  output. 

24.  Screen,  NRTS,  Removals  per  1000  FH  Summary.  This 
section  contains  output  logic  for  the  summary  table  showing 
screens  applied,  NRTS  produced,  and  removals  obtained  from 
the  program  run. 

25.  Averages  Print  Routines.  This  part  of  the  program 
averages  data  generated  when  more  than  one  seed  run  has 


been  requested  and  a  random  seed  was  chosen  by  the  user. 

It  averages  various  output  including  all  objective  function 
output  and  removals  per  1000  flying  hours. 

26.  Input  Data.  The  input  data  is  found  near  the  end 
of  the  program.  It  is  divided  into  several  sections  and 
each  is  discussed  below. 


a.  Names  and  Indices.  This  section  names  each  module 
identified  in  the  program  and  each  part,  including  dummy 
parts,  that  are  used  in  the  output.  The  names  attempt 
to  correlate  the  actual  part  names  where  possible. 


b.  Actuarial,  Pipeline,  and  Cost  Data.  This  section 
assigns  values  where  necessary  to  compute  costs,  NRTS, 
and  pipeline  data  for  the  program.  The  Design  Maintenance 
Concept  is  the  source  for  most  of  the  actuarial  and  cost 
figures.  A  Weibull  failure  rate  is  assumed  to  obtain  the 
shaping  (SHP)  parameters  for  the  parts.  All  of  the  variables 
should  be  defined  and  can  be  found  in  Chapter  VIII,  Program 
Variables . 
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Program  LAU/0MENS3,R 
LAU/0MENS15S , R 
(version  dtd  1  Nov  79) 
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t 

1  c 

2  C  GIMMES  AND  DlCUlillPVS  _  .  ... 

3  C 

U  CNAKACTEI 

5  CHARACTPR  I NO  AT  A  *  1 1  ,*P9C*  H*  8  .'HOITRI*  8  ,  BiKITfl*  19  ,  MOBABBRS  4 

6  P*PAHKTfl  M?8, 

7  DIMENSION  NODULKH*)  WJtPtSCRftiJJQJ)  •  JBSESelR(  JJJ|| 

H  _  _ DIMENSION  U3C»M(Mrt)  .»S«T3pctMl.B»KFH(mn«FMTS Fc(HW1 _ 

9  DIMENSION  FBKFH  (  BUI  tM «  Jl  .  Slt(«t  UHOC<  JJ|  a|Ct  f  JJ|  »#Pft6t (f  i) 

10  DIMENSION 

11  DIMENSION  NOXOTB  ( **  ).  Hits  (NH^nUNlTS  (HNJ,Ge8C*T1(NI(J  ,LcHClT2  (RN 

12  _  H _  _  _  .. _ _ _ _ 

13  DIMENSION  MtJSNBXS(H||)tfMscHs|t|(BMl,MSC|NNt*{nin,NTN*T*(NH| 

14  _  DIMENSION  MXUI>TS(MN)fNXUlN>Tg<HHl  ,l1HC»N|TtMH>.MXSC»NBt(EM 

15  DIMENSION  r,TORNBTS<NM)  ,N0DD8El(BPIiKK1  .weDlHa»HW#KKl 

16  DIMENSION  _ 

17  DIMENSION  M0DSCH{Jin,KK»;MT0*9l(BH|iMT»S|2M»>i«TTH2Hin) 

IS  DImehSIOM  WIXBliMjD.niTOTiOliUBllcFliJLUiMBfllBltBVp^H) 

19  DIMENSION  KTH ( BN ) , BSC1<«H J , H»OT* ? Rfl ) ,H®X ( 99 \ • tEBCSf I { Bn! 

20.  _  _  DIMeNSIOH  ■J8Ct(J»niJ0|BtJj|,4»BCJf  _ 

21  DIMENSION  mill JO),"0»(HH»,B»r|Nl,JTOtl(#a|,4UD*Fl#4) 

22  DIMENSION  P0grNC8m-M1.M3P3EtlMHUHJT0L>TtMHUnjUP«HtHH) 

23  DIMENSION  KJTMT(MN),MjsclT(M!H,BJIOT!(T(EWJ#Jfl|cI(JJ#NN) 

24  dimension  tIFSCSa(JilxJttc*£Mr<iJUHaTlSl£^nt*Q»ABl]LL!i*)  .... 

25  DIMENSION  ND*XPE ( H«) » B*»tp« l Hi ) #M»IPC$X t N| ) $ F A«P*Tf ¥ < BM ) 

_ DIMENSION  HDgCSI(nM|.HESgETtBm.ieBCSt<NH|.|lCPSCll»taJl _ 

.  /  DIMENSION  DLCHDDR(MN)  ;PlPBOtPN{HN|  .FROMMS  (MB)  f  PACNRTS(Ni» 

28  DIMENSION  JTXPtJJ>«jXnt3jUN»lPfH).JEl.Pl4J>iHP»T»9tH(HH|  _ 

29  DIMENSION  mrHB (HI |  »PMf*e{ "in, D«PFC<B»)|T**tC(H!l)NlCSt4|Hli 

30  DIMENSION  MXgSE(MH)iWAPPfMMi;MElHCHin.WX3CHMB).lX«STl<HHl 

31  DIMENSION  WXGPCS(MM|»H»PIpfMB|l  .IXeSTtt (SN)#lXCS»3 THE J,LXCSf(  11*1  J 

32  _ dimension  Sag  1 1  kk  )  t  gsuatKin. >BT1  TICK  ).»qT2tK*U?*»TE<WHltFltrltBr 

33  «» 

34  DIMENSION  MTBCST(BM)fNBSEpM|(|ll)fLCNTIAESfHB)yHXTRC9T( HBJ  *lICST 

-35  421  MM) 

36  C  _ 

37  C 

JL0 _ c  *  *  *  *  m  A  i  n  *««**»  * _ _ 

39  C 

40  _ C  SET  DATE  ABB  IM.  _  . . • _ _ _ 

U1  GOTO  1600 

43  C  READ  INPUT  DATA 

44  _ _fi _ 

45  1500  GOTO  4800 

1*6  C _  _ _  _  .  _ _ _ 

47  C  PINO  SCALE  PARAMETER  FOR  NPIBtjLL  DISTRIBUTION 

48  8900  DO  U  i  1 » *1H  _ 

49  IF  CB»RFH(I)«l*»  Q  *09 1 1  *0  JO  8 

50  _ _ JS?AlJp(DJ  »  ITIXt>L0e(3FfXn-»n<(l0BB;0#BiK|t(lH*U*OC(lF(in 

51  « » / 

52  «(9AMF111.0^SBPWF{I|»)4f(0|lUL  _ 
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53  GOTO  9 

54  8  J SClfJOtm  *  990050 

55  9  CONTINUE 

56  C  INITIALIZE  AIL  ACCUMULATORS  MJP  BEEIRB  USER-IRPUTTED  RUN  Variables 

57  GOTO  /SO 

58  C 

59  C  INITIALIZE  JTTP(5)  A^P  OTTl(J)  r«R  ALL  J  PA«T* 

60  _  C _ 

61  200  GO  TO  8 100 

6  2  C 

63  C  WARMUP  DESIRED? 

64  C 

65  2“0  IPtKW.NB.U  GO  TO  1 

66  C 

67  C  WARMUP 

68  C 

69  250  GO  TO  6100 

70  C 

71  C  SCALE  REPORT  PERIOD  C0«|T««3 

72  C  INTERVAL  NIOTH  ■  INPUT  REPORT  tf«IOP 

73  C  '  r 

74  199  KLA3T  «  (Ft 06r(lSlMP*pJ/PL0AT<llPTPRDn*,l 

75  iffKiAsr.Li ;ric )  so  to  aeo " 

76  PRINT  1483 

77  1483  rerun***  vrpasameteb  itr  xr  ti»Es  1030  ape  iuso  roe  smallii 

78  STOP 

79  ~  c 

80  C  FOR  BACH  RIPORT  PERIOD,  K 

81  C 

S2  c_*_  »*•*»•*«*«♦•*•  t  ***********  ♦ 

83  1  PO  10i)  R  ■  1,KLAST 

8  4  (;*«*»*»***»**♦•♦*»*******♦♦♦» 

65  C 

8b  C  FIND  MIN  TIME  TIL  PHLIIER  AE»  MX*  TIME  TIL  LIMIT 

87  C 

88  5  GOTO  4300 

89  C 

JO _ C  COUNT  MULTIPLE  PARTS  REMOVAL* _ 

92  10  GO  TO  *300 

•3  C 

94  C  REMOVALS  TI|S  REPORT  PEIXpO? 

95  C 

96  20  irUlNr.LT.K3J  GO  J9  4P 

97  rr  t  Mm  ,  it  ,  50  *f  wi 

•8  c 

99  c  no  removals  this  SEPorr^fixOb 

100  c 

101  C "UPDATE  ALL  PARTS  FOR  ltM*XNX*G  TtHE  li  THIS  K  PERIOD 

102  GO  TO  8660 

103  C 

104  C 
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3b  GO  TO  100 


*  05 

106  C 

107  C  COPE  REASONS  POB  REMOVAL  pM*  pABTS,  MODUlIS,  #10 

108  C  POR  EVeiHE*  AMP  APP&T  *C*EBR3  aRO  TOlJRAHC*  ipt|*VAlS 

109  c  and  replace  behoved  parts 


110 

111 

112 

c 

40  GO  TO  1600 

C  ......... 

... 

113 

Ilf* 

115 

116 

c  record  all  PARTS*  MODUU1;  Elam  REMOVALS 
c  ENGINE  REMOVALS  by  report  pi«zoo;  k 
c 

50  GO  To  5100 

... 

117 

111- 

119 

120 
121 
122 
123 
12iL._ 

c 

_ C_fl.OMLE  REMOVALS  FOR  EMPIRE  WtT9  |*UI*IS  lfM** 

C 

j60  JBO  TO  _H(15  .  _  _  .  ..  . . 

C 

c  MODULE  REMOVALS  BY  REPORT  PERIOD**  K 

C 

70  GO  TO  5115 

125 

126 

127 

128 
129 

-130- 

C 

C  MODULE  REMOVAL  SUMMARY  B*  CAUSE 

C 

80  GO  Tp  |145 

C 

.  £-PAET  REMOVALS  PY  CAUSE  . 

- -  ... 

131 

132 

C 

9Q  SO  TO  5155 

133 

131- 

C 

C  3BPLAS6  I.EMQVEI.  PAWS 

135 

—136 _ 

C 

....  _ 95  GO  TO  5280 

137 

111 

C 

e  IXFD  tXMt  TO  IBEX  linom  OP  lBltlE*  BOPOiBl* 

Jin* 

139 

-US 

c 

_ 97  OB  TO  R 

U1 
113  - 

C  BBXT  N  PERIOD 

_ C _ 

113 
111  _ 

C  (  «  M  M  •  M  M  M  I  f(  f  t  |  (  t  M 

jm  fiwim 

•  •  ♦  •  t 

115 

116 

C  M  ‘  *  M  *  M  M  f  M  »  *  *  •  ♦  * 

t  *  ♦  t  t 

117 
111 ... 

C  PRP^OBTPUT  *  IBHOVAl  TIBAB8 

119 

110 

90  TO  1309 

C  . . .  . 

151 

112 

C  OUTPUT  -•  BENOVAl  TARUB 

0 

153 

»«.... 

105  90  TO  1909 

£_ 

115 

136 

C  PRB*0UTPU»  —  OBlBCflVirftcIzOB 

c _  __ _ _  _ _ _ 
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157 

J58_ 

159 
1(50 
161 
162 
163 

J6i_ 

165 

166 

167 

168 

169 

170 

171 

172 

173 
17  U 

175 

176 

177 

178 

179 

160 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
700 
201 
202 
203 
20“ 
205 
20  6 

207 

208 


106  00  Xfi  7300 

C  OUTPUT  OBJECTIVE  FUNCTION 
C 

107  GO  TO  7400 

.  ..  C 

C  OUTPUT  —  SCREEN,  NflTS.  NJM/IOOOPH  SUMOAPT  AND  ACTUARIAL  INPUT 
TO 8  GO  TO  8200 

e 

c 

_  5 

9992  IP ( XSHIX • EB . 1 )  GO  TO  999* 

_ GO__TO_|M)0_  _ _  _  _ _ _ _ 

C 

C  AVERAGES  PRINT  ROUTINES 
C 

9993  I A VG*XAV8* 1 
PRINT  9994 

_ 9994  P0(*J1AT("1«/T25|">>>>  *  AvB"A3e  DMA"."  *  <<<<") 

C 

I f ( I  A V  8 , EQ , 1 )  GO  TO  1QS0 
IP ( IA  VG , EQ , 2  j  GO  TO  9400 
IP ( I A vn , EQ . 3 )  Gp  TO  8160 
GO  TQ  9999 

5 _ _ _1 _ 

C  HALF  PAS*  AVERAGES 
C  _ 

9995  PRINT  9996 
C 

9996  PORnA«1"0",T25,»»»  *  AVe'ASB  OAT*".*  *  «<*<"> 

C 

GO  TO  1208 

C 

C  PRINT  INPUT  DATA 
C 
C 
C 

C  END  OP  COUPUTAIIOR 

c 

9998  GO  TO  9999 
C 

C  *  *  *  *  END  OF  MAIN  *  ♦  *  ♦  • 

C 

C  INITIAL!!*  AVERAGBS  AcfVNVtAtoRS 
C 

1000  lAVG.g 

Bl*AV««»  " 

C 

IB  DM  0  N  •  0 

1020  TfDRUN  a  ISpRUN  ♦  V 
C  SET  DATE  AND  TIME 
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CALI 


1030  CALL  TIME ( ITIHE ) 

PTlMi  *  U0»V(X£ZJUI/JA*«} 
HTIME  ■  PLOAlfItI«|/10*«3 
KJIJ1E  •  lUltmiUlUOl _ 


SHOE  «  FL0M<ITIHR|/1§**3 


ITXUP  •  JTIME-KHME 


xy_.iiJEsujf,GT,  n  sa  to  mo 


C  COMPUTE  MONTHLY  UTILISATION  FaCTBS 


750  DCONVA  ■  1000, 0730. 0 


C  a  ■?,  SCMBRA  F0J.IC5JS 


DATA  LHSCEH<Il  *1- l-»91/BiU50V 


DATA{  JPM0T(I>»T»1»*'f  )/*970/ 


c  BUN  VANZABlES  DEFINED 


C  ISIMI*S*T0TAI  NUMBEB  Of  SjWUtAtXOIl  |E»*S 

C  l5lB£BD»liUMBER  QP  91B0lift*Xftl..lBltl  IN  flBUlRTf OB  111151 . . _  _ 

C  M0NUT1-H0NTHLY  UTItmilOI  BlTBl  X*f Tf BD»lU»Blt  TBS  IB  BFfolT  PtRXOf 


C  XSMAI*TOIAt  NUMBED  07  BIBB  BUNDS  DOlE 
C  LFCTC«Lir»  CICiE;  JXOL-lOiBiJlBei  YAIDI ... 
c  SDTTP*SEED  TTPEI  HBULE*BuI*  Op  X  Vfciui 
c  XF»?PXNT  X»PICAt9B*L0|!O  *BB»9.»IPIT  RUN-1 


iiifiTis  «  200 1  noiiur*  •  17  I  is p*v*  ■  1 

ISIMPBD  «  0  )  LPCTC  •  <5  |  XSBAI  ■  V 
SDTXP  m  "rlXBB mf  "SUL*  m  U  J  _IRPTPRD^ • 
KN  •  0  IP  NO  VAIMUP  IS  0*811*6,  0»  1  XP 


c 


— = — 


bead  ia^my.ismx^^Ka.Kw.’trcrg,! sxrntBf, HOEm, 


«axoi*i*’*cT 


32  r»*n»mi.ix,n,uji^ix;;ii.<x.n»ix.i2,u,;3, ix.n. 
«1X,I3#1X.r3t1) 

P* I BT  S  U,M *01  I  |  |3B U  #  i p, x's .  k  t ,  £ r C » C  ,  X Si H  ? f  S  •  « 61  u Tl ,  a T e L  ,  P  a C t 
30  fQBnAn"0»,«VAM>E3  I»PWT  «,Xl«  H.X<»  _ _ 


DOJM  X*lxl _  _ _ 

H«I*7  *  6i  12*1*1 

BEAD  4?,  (  JBSS3C1N  (4  t<nJ*PTSCI«Ml  .  J-L1.LJ) 


U 1  PEIHT  J7,  (aBS*SC3»ffl)/Jp*T3C>ll{3iiJ-M.l2J 
37  fo«ha*<i*x») 


»ceH8T*HT 


WAR«U»  •  *80"  |  SUB  *  19,9  f  FPSC** 
KONPEM  ■  “COBSTAST* 

XV(KH,VQc1)  VABMUp  *  •PfS* 

X PT A B • ( Q 1 1 )  SEED  ■  li|Hl 
XPjKS.Ep^l)  3DTYP  ■  "lAJlBo^" 

x  sin  pits  •  isiMrgs*rte*u?iM ? 

XRPTPED  *  XSXHPBD/XK 


DO  810 

irUpf»SC*B(f1)  ,Lt,0)  RUT 
810  COUTIHVE 

XV( MiT,GT,0  1  00  TO  •  •« 


DO  84W  ,1  ■  I.Nfl 

DO  83o  J  ■  jr<«>  #  >-1  > 

PHOT  •  PlOATtJDPTSCIBfOPtMn i/lOO.O*fLOAT»HOT(J) )*PACT 
jFnoT  *  XPlXffHfT) 

830  COHTXMVE 


840  CCNTXNVF 
SO  To  BOO 


850  DO  080  M«1»8 

BSC8P  (1)  ■  J0PTSC»H0P(HJ  | 

060  t©!*tX8UE  " 

SO  TO  BOO 
870  PRXHT  872 

87?  »Oonm«0»#nxsMAX  XB  EBBOi  *1 
SO  TO  9999 
880  PEIHT  995, KV* 

185  POEHATf-O'vm^X.'fllQBIlT  VAtUfS  BtCflB  180  01  IMITTPE*) 

SO  TO  1191 


3 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 
326_ 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 
"39 
-40 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 


354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 


C 

C  INITIALIZE  ACCUMULATORS 
C 

900  IAOBGTOT*0>NXTRAN»QJ NAUSTTvOFN AVDV«0 J RASCIf a0 

JXCST«eiIXPIB»OHI»l8l-01lfHf.e»SXPcfTfOfmH»T«0»LXCH8T*0 

LXCnsTB«0|LXCnST4a0)LRfcST*0rZX8r»T>0}RXB|iPO|RXTIAM-0|SXfElO« 

«0 

ENHfsyCTuQf  KRKrtlT»9)IftrH»0illM?S»0jXOBri8lfO)HX?OT»01VXBASl«O 
DO  950  HpI.MM 

BAUSE(M)*0mUP(,1)',0!RATW(*iMfflA8Cltin*O!J.|CB»im*O 
BXGFcStn)*OjNXBlP(n|«0ltXc8T4<«l»8>iXCSt3|IIJ*O|lXCS»(fl|wO 
fMBTS(MJt0fPRFHJB)-0»t*CST2(B)«PlRXTBC8T(ll)»O 
950  CONTINUE 

C  _ 

c 

PO  97a  K«1,r* 

N8Ui(K)«O1II6U2(K)-QJM0T1tKl«6MaTlm»O 
975  CONTINUE 
C 

C  _  ..  .  _  _ 

C  SUBSECTION  1108 
C 

C  INITIALIZE  TABLES  AND  ACCUMULATORS 
C  VARIABLES  IELAT8P  Tp  RRROST  PEM8DS,  K 
C 

1100  PO  Jill  JL  J»__3*KK _  _ _  _ 

MUSEitK}  •  0|NflUSE2Ul-8lNGTM2tK|«0|RqlHMI»»0 
8BTPIRtK)«8 
1115  continue 

c 

c  VARIABLES  BELATED  TO  BOTH  MODULES. M, AND  BIBOBV  tBIZOBS.K 

1120  DO  1 i»8  M  *  1.MM 
113Q  PO  1140  K  *  1*KK 

MODUSE1(M,K)»0>HODTll2tM#E)*OfMODTIIl(ri.Kl»8IBOBTOTBPII,K)vO 
HPpSqsiM^Rj.QiHODySiattiiiej.o 
1140  CONTINUE 

1150  CONTINUE _ _ _ _ 

c 

c  VARIABLES  NELATlp  TO  R5P«lf8  AL0«B.  (1 
C 


1160  PO  1170  M  •  IjMR 

MBTS((1J.8TM0R|TS(«|N0J»,USll*TS(M)-#»MSCII|*iSJHV*0 
..  _  H»CBNETStH)»0»MXUMSfSt»M»0lMKU3mS(H)«8)HICimiTtm»0 
nxscp  NIX  ( M )  «0  J  MXOkWIT*  f  M )  ■  «  fMUSf  ( « )  ■©  t  MTDfM|*ljHTllfWTSO^ 
M*C»(M)*0XpN8TSJiLTHlJIJS0jri;_cBC*T1iM|-0i  LpM9ST2jH)«0 
LCNCET3(M)*0)LCST4(N)MfLcMTIANSMl)-OfLCnOST(H)*d 
117p  continue 


C 

c 

C 


VARIABLES  RELATED  TO  B|B*lj__8_ 


1180  DO  1190  J  •  1.JJ 
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365 
3«6 
367 

366 

369 

370 

371 

372  _ 

373 

374 

375 

376 

377 

378 

379 

380 
361 

382 

383 
364 
385 

366 

367 

388 

389 

390 

391 

392 

393 

394 

395 

3*6 _ 

397 
3f  8 

399 

400 

401 

402 
903 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

41 5 

416 


4VSC(J|ae)«TH(J)*0l«Sc*t3)a0f  JTOLlf  J)«0f<!VBSPU)-9 
1190  CONTINUE 
C 

C  INITIALIZE  TIME  BE*UINIB8  THtS  Rtf OBT  PERIOD 

c 

XCLOCK  ■  Q 
KS  »  iRPTPBO 

C  _ 

C  UNSUeSCRitTED  ACCUMULAtRlR 

c 

RRHUTOT  m  8|  NUC«0|  RRX»0l  N  eRSNRTS*  01  NBSBPTMM-O 

c 

C  VARIABLES  RELATED  TO  BOTH  7  X||1  * 

C  _____ 

pe  im  k  *  i,kk 

PO  i  1 90  (J  *  1.JJ 
JMSCp<a#K)»9 
119b  CONTINUE 
1195  CONTINUE 
c 

C  BITURN 
C 

SO  TO  199 


C 

C  SUBSECT IQN  2100 
C 

C  INITIAHti  TIME  Til  E>|lTii73t7FfJ)#jriD  TINE  TlV  LIT* 

C  LIMIT $  J T X L ( J ) f  TO*  XRCI  f ARt  J 
C 

C  LOAD  BAMPUM  ELZZR0  ROOM  tXL  UNSCHEDULED  RB807AD  (FAILURE) 

C  TOR  EACH  P|ET  INTO  JTTf(3),  ARP  «RaP  EACH 

C  MAXIMUM  OPERATING  TJMI#  NOT(U),  AND  CONVERT  TB  EQUIVALENT 
C  ELXIHB  HOURS  BX  OXVIDIHr  ifColVfBUol  FacTSRT  *TJ),  SI^EN 
C  IN  INPUT  t  SUBSECTION  aT  « 9 » Q  pOE«  TUB,  A»0  IS  USRB 
C  THROUBHOUX  THE  PROORAH  NlgNE?!*  A  PART  IS  REPLACED 

C _ _ 

2100  DB  2]ll  9  •  | 

SOLE  •  FLOAT  (  J3CL  ( <1 )  ) 

T»T»ALOCf  J)*{S«lEiH«C(Jl ) * ( iRLOG< UNlf N 1  (HIDJJ  }r*TT;/SHPf Jl) 
JtTrjJ)  •  IPXXfTTf) 

JTtL(J)»IFXXfFLOATfNOT<J) )*FRCT/R<J) ) 

2200  CONTINUE 
C 

C  RETURN _ 

C 

2300  80T0  200 
C 

C  LOAD  NEXT  REMOVAL  TUI*  FO*  P|6T  J 
C 

C  THIS  SUOSICTX0N  ASSUMES  A  VElRUll  DISTRIBUTION  OF 
c  FAILURE,  tach  EEfcirrxof  op  tn?s  iuesrction  leads  a  txhi^t 
C  TIL-FAILURE.  JTTKO).  ABD  A  Ti«E.TU-LIFE-iIMlT.  JTTl(J), 


t 


417  C  FOB  BACH  PART  3,  ALL  TlHjS  ARP  SomVeRTED  TO  IQUIVALSHT 

410  (LJJtglM*  F«?Jg  FOURS.  ALL  TIM«8  AISUMR  HAT  A  tUfl  API _ 

419  C  P AFT  WAS  INSTALLED,  X*  THE  PLYIFO  ROHR  TSHE.TJL* 

420  C  SEXT*PAiLUlf  „IC1_IAJT  <?,  IJfUSl  IS  fHE  riflif  H|UR  ?I»f* 

421  C  TIL-LIFE  I. JHXT  FOR  PART  4( 

422  C  R(JJ  IS  8ATIQ  Of  EIIH|?  TpTRl  OPERA?!**  HOfRS  T« 

423  C  ENGINE  FLUNG  FOURS  OR  »V  «ICLtS  f*R  fLlZFO  F#U«  R8  APPRO* 

-424 _ C  gfllATt  FQI_LICF  RAIHjU _ _ 

425  C  MOT ( J |  IS  INPUT  UFE  LIMIT  fMAXlMUH  0PERA*JN|  TIHl)  FOR 

426  C  PART  0  IF  EITHER  I5JAt JLCLUSJI  01  C<Cfcff  4®  APP,_ 

427  C  3HP  ( J )  IS  MflBULL  SHAPE  p AR ANETER  {’.Gl'.r.Ofi  , 

421  _ CL  II  UQ,  FAILURE  PISTFIlUTlBi  H  glPOWlWTlAL  (OORStANT _ 

429  C  ACTUARIAL  REMOVAL  RATE  1 ,  AS  SRPfJI  IiCREASIS  IN  RANGE  > 

-426. _ C  1.U,  <  INFINITY.  THE  flltm  bXSTRIBUEIOM  RIFR»CT|  ACTUAFIaL  _ 

431  C  REMOVAL  RATES  THAT  INCREASE!  «XTR  |N6XRE  AGFJ  THE  LAFSRP 

422  _ C  ACTUARIAL  RA.IES  AT  aiflHEl  AflEa: _ _ 

433  C  JSCL  ( 0  J  IS  THE  VfIBULi  PARAMETER;  THIS  IJ  SIMILAR 

434.  .  C  TO  AN  ACTUARIAL  HFS  EUPiCTAPCf  F_M_PIlFT  _ 

435  C  ALOC(d)  IS  THE  WEXBULL  LOCATION  PARAMETER.  IP  HOST  CASES 

-436, _ C_  XUS  .lAHAHEUM!  WUt  «E  0.  All  PAlxMElERS  ARE  RIFXREB  IH  _ 

437  C  THE  INPUT  DATA  IF  SUBSECTION  9008. 

438  C _ 

439  C  SCLE  *  FLOAT{JSqL(0) ) 

440  C _ Iir_i*ALfiCU  IttSCLIf  ALOC  <3  >  1 T  ( »Atflfi  tPHTFHl  HHP)  1 )  **  MI/MHJH 

441  C  JTTF  ( <J )  *  iriFCTTF) 

JAJL2 _ C,  J.XIfc(0)-iriX(FLoAT(MOT(E)AVf>CT/ti7>1 _ 

443  C 

444-  _ C-.1MBIE _ _ __ _ _ _ 

445  C 

.446 _ C_ 2U66ECTION -4508 _  _ _ _ _ 

447  C 

440 _  _C  HAIfllU _ 

449  C 

450  _  C  TPIS  PROGRAM  R AN£IOMlZjS  T|P  SXA|Tl)(fi  AGE  OEJS|CH  PART  Bf 

451  c  SUBTRACTING  OFr  A  RANDOM  SNARE  OF  THE  TIME  TIL 

452  C- FAILURE  lOR  TIER  TO  LIFE  LIMTt  t  jr  SltAlLERl, 

453  C 

JL54 _ 410.0-  PO  4128  J  *  1.JJ _ 

455  RNU  »  UNITE  1 (SEED) 

456  INS  *  IFIXlBSO'FLOATt JTT?Um-  _ 

457  IPCJITFUI.GI.JTTLIS))  ms  .  irlX«RND*FL°|Tj  JTtt(  J)  |  j 

458  iTTLJJJ.  f  PJTLU1  *  Xj|9  _ 

454  J  T  T  F ( J  J  *  flTTF(J)  •  IMS 

4ft£ _ 4120  CONTINUE _ _ 

461  C 

462  C  RETURN  _  _  _  „  _  _  __  _  __ 

463  C 

464  GO  TO  1 

465  C 

_466  £  SUBSECTION  420» 

467  C 

468  C  FIND  MIN  JTTF  ( J )  AND  (III  fTTl(Jl 


73 


4*9 

470 

C 

4200  MXNr  •  10090000 

471 

DO  4210  J  »  4,JJ 

472 

I»l JTtFfO) 

MINE  » 

JTTFf J> 

473 

4210  CONTINUE 

474 

MINI  •  10090000 

475 

DO  4220  J  «  1.JJ 

476 

IF(  JTTl( 3)  .ir.'HXNU 

MINI  * 

3THM) 

477 

478 

4220  C®-‘ *  *  NUf 

.  C 

479 

C  RETURN 

460 

C 

481 

GO  TO  10 

482 

C 

463 

C  SUBSECTION  4309 

484 

c 

48  5 

c  COUNT  MULTIPLE  PART  REMOVALS 

486 

C 

487 

4300  MUi.Tr  •  Of  lULTI,  m  Q 

488 

DO  43»0  J  m 

489 

IF(MINr,EQ, ) 

MWLTp 

■  HULTF  •* 

1  ~  ~ 

400 

IP(MINI,EQ,JTTI(J)) 

nultl 

•  MUITL  *■ 

1 

401 

4340  CONTINUE 

492 

c 

493 

C  RETURN 

494 

C 

405 

GO  To  JO 

496 

c 

i*07 

c  SUBSECTION  4409 

498 

c 

499 

C  UPDATE  ALL  PARTS  FOR  REMAINING 

TTBE  IN  THIS  K  PERIOD 

500 

C 

501 

4400  D0-  44  19  a  •  I,3"J 

502 

aTTr(J)  m  JTTF  ( a )  * 

*3 

503 

JTTL  (  J )  «  JTTL(J)  •* 

*3 

504 

4410  CONTINUE 

505 

C 

506 

C  RELOAD  TULL  TIME  TO  END 

Of  REPORT  PERIOD 

FOR  NEXT  E  PERIOD 

507 

508 

C 

K3  ■  XIPTFBD 

509 

C 

510 

C  RETURN 

511 

C 

512 

GO  TO  35 

513 

514 

C 

C  SUBSECTION  4609 

515 

c 

516 

c  ir  removal  inis  pirjod 

517 

c 

516 

C  INITIALIZE  REMOVAL  CODE 

arrats. 

3FaRt<J) 

AND  NOD ( M ) » 

519 

C  ANf>  NEFC 

520 

C 

74 


521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 
54Q 

541 

542 

543 

544 

545 

546 

547 

KtQ 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 


4600  DO  4610  J  ■  1,JJ 

JPART*J)  ■  0  .  _  _ 

4610  CO“iiNWl 
NERC  »  0 

DO  4640  M  *  1,MN 
ROD ( M  f  •  0 
4620  CONTINUE 

C  AGE  each  PAFT  BY  MIN  IXHB  ro  REMOVAL  ANDUPD AfETXME 
c  IEKAINING  THIS  8IP0BT  »*Bj6p;*3 
C 

po  4640  J  *  _ _ 

zr(nxit,Lf anxi'r)  op  to  4530 

_ •.jum. _ _ _  _ 

U®TL ( J )  »  flTXL(a)  •  «I*P 

GO  XQ  464fl  _  _ _ _ 

C  SUBTRACT  MINIMUM  TIME  TO  REMOVAL  FROM  Ul  BAUVSE 
C  XI^S  AND  NOT  *  S  FOR  ALJ, 

4630  J'S'tr(j)  *  JTTF  ( J )  -  NI*L 

_ Mtniii  *  win _ _ _ _ 

4640  CONTINUE 

IFtniNI.IT.MIBFt  !5L°eif»tcio?K*HiU 

IPtMINl.GE.MlNF)  ICLOcr.SclOeK+imiF 
!»(«!»£, IT, NINFJ  Ka*H 

IP(«INI,SE,MIUP)  K|«K3'»*ziir 

c  _  _  _ _ _ 

c  FOP  EACH  PART,  IDENTITY  ANN  eOD|  iEASON  FOB  B|«OVjJL 
r  COD?  g  ■  HQ  DEFECT 
C  CODE  i  «  USAGE  RENQVAi 

C  CODE  /  *  TQIERASCF  RIt)0V|*  (pR|t  IS  ABOUT  10  PAH  AND  IS 
C  DETECTED  BY  MaIHE*  A*ef  PERSONNEL) 

C  CODE  i  *  SCREENED  ?0  PIP&T  BEClQj?  "flJsOSJ  IBfPflH*  TO  LIFE _ 

C  LIMIT 

C  CODE  4  «  LIFE  UNI?  HACKED.'  fOt  (NaI  Op,  ?I|B1  IlHOVAL 

C  CODE  b  ■  U-DEP,  USAGE  RBnOVAL.  *UT  "CLOSE  IMUflH*  TO  HOT 

C  TO  SfNp  TO  DEPOT  P0r  RePaIR 

c  code  6  «  multiple  parts*  all  usise 

c  CODE  /  *  MULTIPLE  PARIS*  WlT)|  AT  LEAST  OBB  SQllPULlP _ 

C  CODE  8  *  ROLE  OF  X  TO  f*POT 

C  CODE  9  ■  MULTIPLE  NOpU^E  REHOvALi«  ALL  US40BI  |0t  »nf_OF  X 

C  CODE  10»  MULTIPLE  NODULE  RBBOVALS.  AT  LFAS1  til  SCHBBVLFI, 

C  NOT  RULE  OF  X 

C 

C  ,JF(Ml  IS  NUMBER  Of_JSl  pAJU  Ip  JJT^  S05l«1<F.  < « >  ABBA? 

C  MUST  CONTAIN  ONE  MORE  ?RTRT  ThaN  NUMBER  OP  H0DnEl7  TUB 
C  fM+1)ST  ENTRY  SHOULD  EOUAJ,  cNe  PLUS  M?H  ENTRY  INPUT  IN  SUBS  9600’, 

c 

NSnhtflg  »  i 

DO  47S0  M  *  1,MM 

DO  47U0  J  *  jr(M),  (JFJM^I^I) 

IP( JTXL(J),eO,0)  jpART(fl)  ■  4 
I r  (JPAPT(0),EQ,4)  NOHRTPLG  *  2 


573 

XHJJXK  J),E5,0)  96  16  4700 

57U 

IF< JTTF(0) ,EQ,Q)  ■  1 

575 

if<jttf( a)  .sx.o.AifTJftrfj'r.tH'.jTbi)  jfxi*Ttt  ■  a 

576 

4700 

CONTINUE 

577 

4750 

continue 

570 

IF  (NOBRIFLOiNEjl)  8°  TO  4751 

579 

510 

. .  c  . 

IF  MOO.6*UNXF0MSBIDl7lT.FEfRT5PC|  NBRC  ■  8 

581 

4751 

CONTINUE 

58? 

c  for 

EACH  MODULE,  IDENIJI*  arD  CODE  REASON  EOF  REMOVAL 

583 

c 

58  U 

DO  4000  M  *  1,MM 

585 

c 

586 

C  INITIALIZE  MULTIPLE  PARTS  cOUjjTEI,  UPC.  AND  COMPUTE  ITS  VALUE 

587 

C 

588 

MOC-Q 

509 

PO  “810  J  •  0F<H),t8FtM*X)»1) 

590 

IF  jOFlFT(a)  ,OT,0tPI, QTTHJJ'.LT,  JBSESC1N((})  )  HPC-HRC*1 

591 

4810 

continue 

592 

C 

593 

C  ION 

EACH  MODULE,  SIFT  f»»JS  SEASONS  FOR  REMOVAL 

59“ 

C  *ND 

CODE  SEASON  FOR  MQP81**  REMOVAL  INTO  MOD(M) 

59  5 

c 

596 

DO  4850  J  *  MIN)# 

597 

I»{ JfAiTf J),F0,9)  80  TO  4850 

598 

IF(MPC, 31.11  10  X9  4828 

599 

MOP(M)  ■  jfA8X(J) 

600 

30  TO  8850 

601 

4828 

IF(  JPAlTfJ),J,*,2,A8p,HODfM);iT.T)  M0D(N1  ■  6 

60? 

IF(JpA|TJJ)lGT,*,*NB,$PAaTfJ1.LTr,d!  MOD  (  H  )  ■  7 

603 

4850 

continue 

60  U 

_x»  aJLl&Ol  30  T0  48^0 

605 

DO  «faf  J  T  ??(*)• f**fN*T)Tf) 

606 

IF  (JTTL(J).8T,^BSISC|M(8))  do  TO  4B?5 

607 

MOD ( M  *  ■  3 

608 

GO  TO  8800 

609 

4825 

CONTINUE 

61Q 

4800 

CONTINUE 

611 

if  TNiic.Ei.fT  fupnnrefi" 

612 

IF  (0SEC. EC, «)  SO  I#  11 

613 

C  CHECK  FOR  ItJif  of  » 

614 

IHMC-Uf  MNCOO 

615 

00  4$«0  m«i.mn*i 

616 

IF  (MOB(M),FQ,QiOR,||,lQa?)  SB  TO  4900 

617 

MMtSflMe+1 

618 

IF  (M.8Ti2,AS0.M.LT,7)  iMMCHMMCfl 

619 

o 

o 

«* 

* 

CONTINUE 

620 

IF  UMMC,SE,3.AND,MHC4aE;NRUtI1  PERf  »8 

IF  (NS1C.EC.I)  NRX*P*X*1 

621 

622 

11 

60  12  IU1.NH 

623 

If  fNflC,NT;8.irin57HP'D(N|;K075)  io  fO  12 

62“ 

IF  (  N’KIC ,  EP ,  8  )  SO  TO  13 

76 


625 

626 

C 

If  (fiOD(M)  .EQ.S.Ol.hOpfn)  .EC.4'.0B»M0D<M)  .10*7) 
±1SIX  Kill  .  .  _ _ _  _  .  . 

00  to  13 

627 

626 

629 

630 

631 
£22 

C 

IF  (1U0c0*VlYr|H(SfBDt;if;B|B*Sle<HH  OO  fo  13 

AjPPLY  BAga  SGRFEM  _ _  _  ...... 

DO  15  J  *  JFJM), ( J?{H#1)*1f 

I*  .10.45  .  _  . 

IF  .( JITF(J)  ,IQ,0)  08*|Tm*5 

GO  T£_  13 

-  . 

633 

631 

635 

636 

c 

15  CONTJNUE 
_ 55  .  ... 

APPLY  DEPOT  SCREEN 

13  D0J7  a«JF<M),  (JFiVlt*11 

637 

639 

lasi.jpabkj) 

if  t j»i*T(ii.BQ'.o.»iDi0«TLrjr:Li:BD»Taei«iin 

JP ARTtS ) »3 

639 

64Q 

6U1 

662 

643 

£M. 

- - 

IF  (  .BQ,2,6PDtaTTlf  JJ#Li;iDPT*Cl»|an 

iF(.M£eiBicFQ,4UFc»m.*njiiia;3v  noeuafi _ 

IF  (MO0(M),BQc4a6BB|*FftB*(Jr.BO'.3) 

it  \ bpp  ( w ) ,  , 2 , a*$a j iA*t  ( 3 1; iq ; till# * , 

IF  (FOB(M)  ,£0,0,648*  JpARTjJj’.loiSJ  MOOfn|«3 

17  CONTINUE-* 

JPART(0)>3 

9)  MO»(H)«6 

645 

646 

c 

12  CONTINUE 

647 

646 

649 

650 

c 

IP  (NERC.EQ.8)  GO  Tfi.  H®0  _ 

IF  (MUC.ST.I)  00  TO  3f 2 1 

DO  4^1*9  W»1«BM 

-  -  -  --- 

651 

652 

4940  IF  ( MOB ( M ) t  ST , 0 )  NERCiMQD ( K  J 

GO  TO  4035 

653 

654 

3621  NEKC-4 

P0.  3622 

655 

656 

IF  (nOB(n),8Q't6tOI'MQD{H).«Q*.71  NRRC-10 
_ 3622  CONTINUE  _  _ 

657 

.658 

659 

660 

C 

c 

c 

IF  NEBC*H,  BYPASS  FHGJNE  RftSE  SEPARATION  COST 
BECAUSE  fcMOIE  ESgljlE  SHIPPED  J(?  B|pQT  WITH  |0 
MODULES  RINOVED  AT  BASE 

4950.  IF  (5?£C*Efi.B)  GO  580.5 

■ - -  -  ■ 

661 

642 

4935  CONTINUE 

IF(MMC.GT.I)  GO  to  5MJ _ 

663 

.664 

c 

c 

SINGLE  NODULE  REMOVAL 

665 

1ft& 

c 

c 

COMPUTE  TOTAL  MaRHOORS  SPENT  RIMBVlRS  LONE  HOfUlE 

667 

£18 

DO  5020  M  *  1  ,  MR 

IF  ( MOB ( N ) • OX ■ 0 |  NfSEfTMl  *  tBSEFTMH  *  H8*BPM|/M) 

669 

670 

5020  CONTINUE 

St  T0  6030 

671 

672 

c 

5010  IF(MOD<4) ,10.0)  GO  TO  5040 

COMPUTE  TOTAL  HARBOURS  U’BB  Fp* 

673 

674 

c 

multiple  module  Removal  im^om  coni 

675 

676 

NBSEPTMH  ■  NBSEPTMH  *  M|S|PM>(4) 
IFjMODlSl.GT.O)  MBSEpTHR  •  NBS|F*HH  »J0 

t 

77 

, 


■■  ■ —  A 


GO  TO  8070 

50UO  IF(HOO<5) .*0.  0)  8®  *0  5®50 
C  HUtTIBLE  H0BPLI'  mpVjLl  TNCIUdYMS'  hTt  BtJT  BCT  COER 
RiSEpXHH  ■  NPSEPTfjH  ♦  M1S*»M*<5) 

X»  (HOBO)  ,«T,Q)  NII<»TH*  •  BBSEPTMH  ♦  MBlBfM|(31 
XFlfl0D|7jtPT,0)  -  SBSBPTMH  *  MBSRPflHf  7 ) 

00  TO  1070 

5050  IPtBQPl61  tBQ.O)  80  *0  308$ 

C  MULTIPLE  MODOlf  RfMQVAi  IReiQstRB  tIIPIKE  BUT  TIOlT  «pf 

•  BBSBfTMl!  ♦  MRSbPMR(M 

IfTBOOiJJ.Bt'.O)  »!«***«  ■  BBBRBTBH  ♦  NBS|pMR(al 
IP  <NQB(3M*|0)  MllBVfnl  •  BBSEPTMH  *  HBBEf MI (  3 ) 
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BB8|P«H<71 
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C  nULTXBLB  NBOOLf  IlHpfjiU  RU*  BOX  COBB  MOB  RlT  BTlTfWllIFB' 

.  5560  XPIHCBf114BX,0L -  VBBePTIH  ♦  RBS|f«Hm 
XP(M00f2) ,87.01  MBIBPTMH  -  M«*BpT|B  *  II|S»PHH|il 
B|I|**MJ  •  BBSbPTMB  *  RBSRpnH<31 
XHM0D87J  ,BT,0)  BBSlitBH  ■  BBSEPTRH  ♦  RBS|P'1«t7l 
C  RCC2  BBPBXB 
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C  400  0*  TO  TEST  BVOXRE 
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C  COBVBBT  BH  TO  P0HAB3 
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e  . . .  ... 

5115  RED  «  Wm*HSEED)*|O0:O 

ii(»i8i8MHt«ye(nn  Mlil"! J?.JL 
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BXOMIVIT  *  *lOR|T|f  *  NIOrIXHiI 
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932  nrU5|i<N)  •  BfOfllfm  4  HoBUlllfHJX) 
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9*7 
9£8 

969 

970 

971 

972 

973 
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c  COMPUTE  f»xn  UTS  BX  M*PVt» 
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c 
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1081  C  B1SXME  BBNOVUS,  RfPOll  FRAloB.K,  SUMMARY 

1162 _ £ _ 

1083  C  PAGE  2  0 1  LONG  OR  SHORE  f OR H  I  tl6|  3  OF  |«B|I|I9 

1181 _ C _ 

1085  5700  IF.(IA76.E0,1)  3P  I«  iJOJ 

1146 _ MINT  *703 _ 

17  5702  FOAMm"*",//) 


1u*8 _ _  C _ _ _ 

1089  5705  EVG  -  JP8*1 

1220 _ »«»T  I7S8HF6 _ _ _ 

1071  5710  FeRHAt4«0»*T3f,F*S«l»|  RlMOV«LS"tIOXt"6AG|  ",181 

- 1222 _ mm  6733 _ .  : _ 

1073  5715  FO*IUT  ( JH0,728**R1P6RT  *|R{9B  SUMMARf) 

1171 _ 214*7  HM_ .  .  _ _ _ _  .  _  _  _ 

1075  5720  FORnA»<1l(9,#T3»*i»F100FFl02  ffll)") 

1076  ...  _ IIMJLI123  _ _  _ 

1077  5725  rO»H»tiiH  *T28 , 17  (  «_*  ) ) 

. 1224- _ 111*7  l727'»XPATI»r72|H. tTmi _ , _ 

1079  5727  F8RHRT4 1 M  ,*PAT|  - ,A« f? 5?>Il8F  »U5;3(*  196  Ml) 

1080  _  21?*I  1760*14612*  _  _ 

1081  5730  rORHA*11BO#"SBEO  lM|% I2io6X;*lllPUT  OOtlVX-J 

1082  _ mix  mimiwu  11*21 _ _ _ 

1083  5740  remxllH  >TftOi"REH^10#O?H’.2P9i4) 

-124JL. _ 1RIHX  l750'*I»>llRD«l»lH»>e.fltSle _ 

1885  5750  fOlHAXilB  ♦•SlMWlAXlOl  PH106  lS%!7 .  t*2 ,  PBl*  I  X*, 


31,16:213*. 


1266  _  _ «2i.444 _  -  - 

1017  FRXNX  8700# XlPTPRD 

.1018  5260  i*Il?0*T  ltl|06  U'iiLlll _  _ 

1089  FilNX  8770'#LFCYP 

1090  _ 5770  f8»"at<ih  riitt  >E»iQt  »qr  ouictm  10191909  m  mi,»  ibir 

1091  *8*J 

1092  PRXH7  8700410*0X8  _ 


85 


1993 

1094 


1095 

1096 

1097 

1098 

1099 

1100 


1101 

1112 

1103 

1J0*L 

1105 

1106 


5780  SITE  X 5  fttiES  HOU|S«) 

PEXSy  l790»lUSUg 
5790  roRBi*9iH  i»ti»»Uipl  %xyr 

_ Mini  l»00«SPT|F  _ _  _  _ 

5800  remiTfiN  x?  #fmi 

y»»1  IH6»HBtH>UU _ _  _  _ _ 

5810  rM«A*tll  ,"S0HBK1  ®»  MOfiOllS  Of  t  *Al  m.Ut/i) 

FEIST  8820  _ _ _ _ 

'5120  rejthjiniij  iT?afn>f»*»*  eemovus"!- 


_ i|»i  iiae _ 

5830  fflniT^iE  ♦I11,|9(**-H 

FEIST  |i|«  _ _ _ 

5880  reinjtllll  )UJ,M  *  011 81  ♦  «  * 


5850  »•  *fF°ET 


Wf  «6fe*  mist- 
mis  'mods’.' 

F»SLY 


im  own 

Mi»S ,  MOf^l 

u.»T"  TiicSIo  TOTH 


1107 

1101 

1109 

1110 
1111 
1112 


1113 

1114 

1115 

1116 

1117 

1 11 8  _ 

1119 

1120 
1121 

1121 

1123 


_ imitiio _ 

5860  rmniKIl  ,0  FEBXOP 

_  _HX«S.»U*  —  _ 

5170  F®*HA*11B  K  HOW*  IXBIY 


FBXMT  1*15 
5875  reinx 
4  2X 


5880  F0IIUT11H  ^X2»1X«Xfi>U»X«ilX;x<U4X.Xtt*3X#8U(9XtXS) 


C  F1IHT  DATA  HHT3 _ _ _ _ 

C 

P*  Sf98  X  •  8|KLAft 

FilMT  I$86;H#X*f*FO»6,X8u8inici.E<j0Sl2tRM3*«l2<Ki*WT!ri*K). 

«  MttTonm  _ _ 

5890  CEHTXIMI* 


112** _ 1 _ _ 

1125  C  F1TFT  TOTALS 

112®  ....  £  ....  _ _ 

1137  FUST  1905 

1128  5$OWO*M*T91H  i11X.P("*Tli'IX;8f"i9|.4X(«r*-»)l 

n29  ~  iaffi-MWfEni 

1130  FEim  l§i8#l008*1T|l«»882Tl|8TM2T.SOTNllJJ|8XOt|T 

1 13 1  T9T5-  VWHir  f fh  «7Wn»* * xTTIT, xi;~W9S9 .W.II.///I 

1132  c  _ 

1133  I»UlTI,Ifi#0)  80  Tf  *IiO 

1134  C 

1135  F«I»T  MJ5«X0BrVAX 

1136  5913  F0*«X*f*e»>"S*Ep  TO»*l  »;x9) 

hit  . jnrmi - 

1138  C 

1139  C  ENQXXE  XFTI  ANALYSIS.  FBTf  Mo*t 

1140  C 

iibi  c  top  or  Tin  3  of  lose  01  ihb*t  fesh  eot  hvimoiu 

1 142  C 

1143  C  HEADING 

1144  5920  IPG  •  JP841 
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1145  5925  PRINT  B930*XPfl 

'  6  _  Stic  /«»«*»< la lAHTiUm*1*  IJIAITJXS’.IJXI!!**!. 

1 147  PRINT  B9N0 

1148  5940  pe*MA*<1B0*1t31,*Ua*«Xttl*ie*  0?  MPOUH  ll|«Ull') 

1149  PRINT  5950 

1150  5950  I9IHtT(imiiiiMl!V!  ft|*09J  *0  Bl»OT  41QM1TJ 

1151  PRINT  6980 

1152  "BAH  JBWM  flUJl  0-3Cg|BB  BCgBD  S*, 

1153  4-ORBEN  TOTH  MRU  |R{9  |«H/ 

1154  .  .  HINT  »970  ...  _  _ 

1155  5970  POiHAUl«  ,UTT(!  g*|  R»TS*  IMS  "1, 

1156  -  - i?  X  lOOOf H* ) 

1157  PRINT  B9I0 

1156 _ J5.50  _EO*M_6T  1 11  1  "r— 3  7f"»" 1  *  IX. SC**  till, 8  ( ■•"li  II. 

1159  «51"—  U1X.8r*-1.1XN»»’-*J,l*;lO(^"),2X,8(»*P),//» 

11 B0  C  _  .  _ 

1161  C  OUTPUT  LIMBS 

1 162  C 

11*3  5990  DO  6000  M  •  1,«R 

1-164.- .  PNINT  0  OMi  HOP  ABBPfM  LMI  T  S  fl)  lB|  R  T  S  P  £  ( Hi»  U I R  *  R  (  N)^N  D  »  N  I T  |J  B ) 

1165  «# 

1166  «fl3CHBNTStM)4US5RNRTS|Kj;HT|»|T|(fl)4pMPT9fC|M],tlrp1l(H1 

1167  6000  CONTINUE 

1  168  6Q10  fOSHATIIH  ,  1?,»lb.1X»I4, iX.Tl'.I.ZT,^,  4X,I|,iX,  I« . 

1169  63X.IU»lX(TB,3X(r6l2v3X,Pl;6) 

1170  PRINT  BOI^tTSXjMmRtBTlHPatRTlT* 

1171  4HSCHp*TT#MBC9RRTT#il*NRf5X 

**72  6012  FORMAT  tlHO  j  "TOTM,  TUB;MuX*»UX,X4,3X,I4| 

13  63X*Itt»lx;ZB«///) 

1174  C 

1175  C  ENGINE  NFTS  ANALYSIS,  N|T|  W*TN  EngXnI 

1176  .  _C  _  _ _ _ _ 

1177  C  LAST  HALF  OF  PAPE  2  LO»«  AND  SHORT  FORM  NOT  IVHTOIB 

1178  C 

1179  C  HEADING 

1180  00  TO  #035 

1  181  6030  reRllAX11Hl,T27,1*ENGXNE  N*TS  INUTNIS*.  IgXf'PASI  ",XM 

.1112  6 0.3.5  fRlNi.8511 _  _  _ _ _ 

1183  6038  PO*HAT<"0") 

1184  PRINT  »O40 

1115  6040  PORMAU1M0iT2l<’,DlSfRxiDTiON  0P  MODULI  IIgOVAl*M 

1186  PRINT  8050 .  __ 

1187  6050  FORMAK 1H0.T22,"NRXS  W|TR  BHGXNI  RRTs  PCLJC*") 

1116  _ PR  INI  8040 _ _ _  _  _  __  _ 

1189  6060  FOAmaT(  iH0,n6,NU8*B*  0-3Ci|EN  SCHlg  T*,’ 

1190  4"CRE|N  TOTAL  RO|  »P|»eTHD«l 

1191  PRINT  8078 

1192  6070  FORtlAUlH  , 41, "ITEM* , 8f* "pR***, 8X, 4 { "NITS  M,"RV*  NRTSM 

1193  PRINT  88BQ 

1194  J5080  P»*«A*11H  #4X1J'ff'*-*f,6X;"**^»-",31,8(''**")f3I,«»^— • 

1195  *■¥— .  ?,  IX,  1X}12(*»«T*//1 

1196  C 
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1197  C  OUTPUT  Units 

1198  _  C 

119 9  “  6090  DO  6100  H  •»  Ti MH 

1?00  M1H!  •11QtHBDJtBB|fRI;*XVyltS('1),ilXU$NtXStM)  ,l!lSeH|IITf  M)  , 

1201  SnXSCRlllTtMl.MlIBCSwTUHliBXOKJlTSrilV 

1202  6100  CBBT*«VE 

1203  61  10  FORrtATIlH  ,5X,A4,5X»I«.5X.14.'4X.I».4X.I«,4X,X#,7X,I4) 

1204  __  PHUT  0115#  HlUms*»MUSS||TT,RTScl!1»TT. 

1205  "  IHERCR  ff  Kf  S  .TOWbIt 

1206  6  1  15  rearm  <  1H0,"T0TAL,,*?X.IB,5X.IU.4X,I4.4X,X4, 

1207  «4X,l4f1xiX».///i 

1208  C 

1209  c  pootrotrs 

1210  c 

1211  ~  piIMT  BIJO* BlFOIIBXl 

1212  6120  reRMA*<1B0»S*,*TOm  tBOXfli  HITS"  , 10x , 15 ) 

1213  M90YERlTjtC~ 

1214  6130  ,IX,"*B0XI«  HITS  X%8X.r6,2) 

1215  ZBXHJ  B1U0*ElKrH 

1216  6j40  fORB^TflH  ‘♦>I»,yOXU  IBM/ 1 0OPfH*  .  1 IX .  F8  j  4  j/// ) 

1217  f  ilm  9165*  YllCi  RBX 

1218  6145  reanATi"  JX, WSIO*  fSTS-illO*"  »ULE  Of  X  PRTS*,IlO) 

1219  C 

1220  C  MODULI  REMOVALS  BX  K  PSHCD 

1221  C 

1222  C  PAGES  4  Tiny  11  LO£G  fRlR  Rls*  POT  PRIRTIB 

1223  C 

1224  LPUP.BQ.il  GO  TO  9|OQ 

1225  6150  P0  6160  M  ■  1.MB 

1326  C  UEADLMG 

1227  IPO  «  XP6+1 

1228  _  fBLMT  61T0»IPQ 

1229  6170  FOa.1lT11M1.T29,  «•  «  6¥®l I  REMOVALS".  10X, "PAOl  *,lk) 

1230  FUST  *1*0 

1231  6180  POPMATI 11  , T26 , "REf 0*X  PBlIOC  SWMBARX") 

1331  _  PiXPT  •1tO»NOD«iSll1J 

1233  6190  FO^MAtl  1B0.T29,  H4J 

1234  _  PBIXI  1290 

*235  '  6W  mitha?* ra  .t3i,ts(**t> 

1236  PBXJ.X  9219*ISDll)N 

1237  6210  rOlWA*<  1B6#  aStEl  RUi*i'8X;i2) 

123B  PBX«I  9220»«*C«P(fU»ap*CBp 

1239  6220  FOAM AT1 1 B  •  '•SCRISR  II  %X4,«r  T*PE  19  *.A8) 

1240  PRIST  8I30»jr(W*1)-6»t»1| 

1241  623C  FOanATII* TalunIB*  «F  *AlTS»7jx,II> 

1242  PBIRJ  8  240f MOpQTR 

1243  6240  FOlriATIlB  . *HOR|Htr*l IHl Affof  RATE  IS",  25) 

124<*  PRIST  *2?0«ttPTPip 

1245  6350  PO*BAI<1l!  ,,i*|90*T  PlBTOt  *5  f,J7| 

1246  C 

1247  C 

1248  6260  PRIST  «270 
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AD-A077  477  AIR  FORCE  LOGISTICS  COMMAND  WR IGHT-PATTERSON  AFB  OH  D— ETC  F/6  21/5 
OPPORTUNISTIC  MAINTENANCE  ENGINE  SIMULATION  OMENS  III.(U) 

OCT  79  J  L  MADDEN  .  V  L  WILLIAMSON 

UNCLASSIFIED  AFLC/XRS-79-295  NL 


*^49 
215Q  _ 
1251 
1-252 
1253 
125U 
1255 
-1256- 
1257 
-125  B 

1259 

1260 
1261 
-1262- 
1263 
126U 
1265 
1166 
1267 
126  fl  . 


6270  FOKH^T(1H0fTl5f*NO0UI<t  BtHOVlLS  (ALONE  *  M*5  RX*H  BRUNEI") 

_ Eli NX  6210 _ 

6280  rO*«AX«1H  »ni«H9(V|t 

saint  -*ito. _  _ 

6290  F0BNAH1M  •  UngK  *  f  * 

VI1HX  1300  _  .- 

6300  fO»nAX( IH  ,*  1IV01X  OKI  »»»T  NANI 

_ 6"FAHT6"1 _ 

PAINT  6310 


xjn«  ;.i-j 

H|8I  Oil*#  7x, 


fijio  ie*juma  *"  niifi# 
s-screened") 

_ 26161  1220 . . 

6320  r08n*T(1H  ,«  K  HOMS 
_ 6"QU,J"i  11«"  __  TQIA1*  1 


mis 


Dill 


earn 

p  arlT 


111*  ?5»»,3l4 

u#t  BEAC««0".6X> 


9IIMX  6325 

— fiA2S- 1 5  *  «  A  XI 1 HL  M"  1 .  II.  1  f  V  1 .  II.  If** )  i  IS. 

«Br-*  1  #2X.  2X^.6<"*"1.//) 

C  LINE  ®1<I6X 


1269 

1270 
1171 
2172- 
1273 
.1274 
*275 

-•226 _ 

1277 

1270 

1279 

.1.280 


DO  63 JO  K  «  1.KLAST 

_ HINT  6360.K.K«lRFyB»D.HBDOS11  (Ul.HO»ySlllU). 

6nODTn2<M#K)«NOOXH1(N»K)»noD8fil(n.X)»nO>10lB(ngK) 
-.0140  _F  0*6!  *210- 
6330  CONTINUE 

-£ _ 

C  TOTALS  COUP  t  PRINT 


PRINT  6350;NTUSE1(tn  t«TUS|2i«).HT*H2fNl»NITNMW).nTaC*(n)*HlT 

_ -601*101  __  _  _ _  _ 

6  350  FORNAX*  1  HO#"  TOT  A  L  3  F  .  T 1 2  .  H  .  B  X  .  15*  2X .  Il»  3| « 15  ,  (*X  .'ll*  ttl .  15  i /// 

—  Hr 


1281  PRINT  6355 

2la2_  -  _ t355.£ORH!T21ftO,Tl6l"IHyi? 

1283  *•*•**•  *7) 

1284  _ PRINT  6360 _ 

1285  6360  FORNAX*"  •.T17,"BASI 

2116 _ MINI  1370 


*  L  M  *  PINAL  "a  _ 

BASE  DEPOT  Tim  Toii¥r 


6370  FOB«AT<"  •*T16,«lEVll  HVBL  LEVEL  CAUSE") 

_ niNi_i3Mj-aiKPiMl<M»cMm:rR>ri>o(H>^*iPMciH) _ 

6380  POHnAX<1H0*"BEN/1000EFN  a.k(1|0VS'«*n 

6390  rO"NAt<"  "♦•BITS  PEIC|NT";  1XM6'. 2#3X, F6;T| 

_ PRINT  1315*PIPPC(»UIQTFCM) _ . _ 

6395  FORNAX*"  DEP  REPAIR"* 19X,P6.t*3x*E1* )•////) 

6 <60  CONTI n U J5 _ 


1287 


1289 

2110 

1291 

2292- 


1293 

-JIM- 

1295 

m 

1-128.. 


1299 

1300 


C  MODULE  REMOVAL  SQHMABX _  _ _ 

C 

C  FACE  12  LCNQ  »  B AflE  4  S«QRT  «  PUT  2  AVEBAOM 
C 

c 
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1301  6400  ISO  *  *P«*1 

1302  If  ( I AVB « EQi 2 )  60  10  MOO 

1303  C 

1304  _  IIA!«*_6405 

1 305  6405  romUM",//) 

130.6.. . C _ _ _ 

1307  6406  HINT  6410 

1308  _ 6410  fOfnM<"Q*t////) 

1309  C 

1J10  _  6415  fimy  6420 » ISO 

1311  6420  F8HMji*i1HO,Tl8,"rtOPW*>8  RlMOVILI  SUMMUt*  ,"M »"»*<**  *»XfT 

1312  _ _ IJINT  >«25#1CPAT*irTIN|,lIiMI 

1313  6425  FOinn*t1HO#m*»  •*A«JT4*."Tf*«  %T5'.2,«  fiC  %l2> 

1314  HINT  6430 

1315  6430  fORMA»riH0#T7,*M0DiriI»,fT07ir*_  *  *  PRlUVIT 

1316  _  _  fflWt  6440  _  _ 

1317  6440  fSlBRlilH  , «  H  fONCfCUttl**  dll  «-dB>  t|H*  IcTfiF, 

1318  _ _ 6"  TOTAL  "1  _ 

1319  MINT  6450 

1320  6450  POMATUM  )  t  U,  *1  3*.  ♦(•»-»)  ,//) 

1321  6455  po  6466  H  •  1JHN 

1322  _  FfIMX64TOiW,NOPUl.B<H>,HHSg(6).Hq><H1.W7mHi<WeC6(>H1 

1323  «BT0XR1H> 

1324  6470  reRHAV^IM  t J2*  IX, A 1I#|4. 1 X, X4 i 2X . 14 , 2X.14fUX . XB, 3X . 17 ) 

1325  6460  C«NTXH1~ 

1326  96  TO  6478 

1327  C 

1328  •  C  TOTAL* 

1329  C 

1_3J0 _ C_ 

1331  6475  HAUS8»iiHA06B**««a*X 

1332  _  BAUD!  *MAUPT*Htf BT 

1333  MATHHiATBUitlTHT 

1334  _  _  PASCRTIIMUC*T*B!C»T 

1335  BXTOX«NjtT0i,*«T0T*X 

1336  C_  _ _ 

1337  oO~TO~T4T5 

1338  C 

1339  6478  film  64*03 nUiftinn^y^niT^Hicgf.atoTiT 

1340  6480  rOinAT«mO',«QBAFD  TfT  Al"  IT  19 .  IU  ,  1 « .  I U  ,  2  X ,  1 4 , 2*  ,  I U  ,  ,  1 5 , /// ) 

134  1  C 

1342  _  7!<?67_».6Ti1J  00  TO  f690 

1343  GO  TO  6475 

13»4  C 

1345  C 

1346  C 

1347  6485  xrUF'tg.i)  00  ?0  f 696 

1348  GO  TO  6560 

1349  C 

1350  6490  XFUmX.10,1)  00  TO  999* 

1351  c  ~  -  —  —  ' 

1352  VIZ4T  84f3#MAUS*Tln»UpT,BATBt,MASetT.flXT01 
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1353  6495  FORMAT*  *3880  TOBAL-9  ",  T7,'«  (2X*T6  >) 

1  4  S _  ...  ...  _  __  ...  ...  _  _ ...  _ 

13*5  90  TO  9993 

1356  C _  _  _ _  _ _  *.  _ 

1357  C  PART  REMOVAL  SUMMARIES 

1358  C  .  _  _ 

1359  C  SUMMARY  BT  MODULI 

1J.60 _ fl _ _ 

1361  6500  DO  6516  M  •  J,M?1 

1362  C  B8APIU0S  . . .  ._  . 

1363  ir  (M, IQ.01)  90  TO  1601 

1364  ll  IJUMiM)  MJA-lll*..  _  _  _  _  _ 

1365  IF  (M,C0;06)  69  TO  l»1» 

.1316. _ It  JJUILUM  )  flg_Ifl_ll.il _ _ _ 

1367  6505  IPG  «  IP8+1 

.1368  _ UMl  mmFi . . .  . . . . . 

1369  6508  F08MAT<1H1,T25,RPA*®6  **«0VU  SUMMARY"*  151, "P|01  mgU) 

i37Q_.  is ia_iu«l mojiem sxtu _  .....  ... _  _  . 

1371  6520  FO*nATl1HO»YX,U»XifX,»6»«<Al5) 

JL3^2 _ _ _ ilMI  MM _ _ _ 

1373  6530  rORMAT11HO*"PA?T",9l*"PAiT",6X,a(f*  * )  .  "IJMO  ms».  ?*  V  *»)* 

1374  . . m» "1*18*1 ...  _  ..  .  _ _ _ 

1375  PMINT  8540 

1376  _  6J40  FORMAT t  1 H  ,»S0,  J  _  1M*» ,fl* , "US AGE  TOUflARCI  U-D»L  *1519 , 

1377  «"  5Cp»tn  TOTAL", 3X#f»CRfRf") 

1378  _ 1*I*T  .6_5_5fl _ _ _ 

1379  6550  FORMAT*  1H  1XJ 14  (••"),< "  *•—"),  8X,  9<  •••)  , 

*'uq  .  ....  ■_._ .  . . .  . 

J1  C  LIN*  I*IU* 

1312  JSSCRM  -  0  . 

1383  DO  6586  J-aFfM),JrtM-*1)w1 

1384  _  .  _  IHKH.lQ.fl)  ISSoKM  m  jpPTtC>it JF<H) T _ _ 

13B5  IF(KPI,BQ, 1 1  XSSCRN  •  IFXXfrtOAl?6PHOTN>i*IACT> 

1386  PRINT  857Qf J, PABT ( $ | , gust ( J ) ; JTDIJU J1 » JUD|PJ J ) . 3TN<J 1 , J3C« (fl) 

1317  «, 

1388  4  JTOTF(J) .PBSBSCRRtfl) 

1389  6570  FORMAUIH  ,  1 3 , 3X . A 1 * . 1 * , 1 4 . JT . l6 . 3X , 3 ( I« , IX ) , 13 , 3 Y , 16 ) 

139Q  _  .6560  CQWTIRVB  _ _ _  _ _ 

1391  C  SUBTOTAL  PRBNT 

1392  FRin  B580,M^U8im),fi«TOLRinn*M#tJDJ5PfJML.B3tHT(Ml# 

1393  6  HJSCNT(M)  fMJTOTRTU) 

1394  6580  FO*MAX11H0*"«ODVl£  tO»ALS« , 123 , I4» 2X. 16, 3|> 3 ( |l f 7% ) , 15,/// ) 

1395  6510  CONIINUB 

1396  C  ...  _  _  _ _ _  _ _ 

1397  C  pftAMp  TOTAL  PARTS 

1398  C 

1399  PUNT  859O,JU3ET,JT0l<B%3UBRtfT.JTMT,,lS6flf9J?Gf|T 

1400  6590  FORMAT*  1hO,"01AND  X*T ALB * . ? 2 3 , I 4 ,2X , I 8 . 3X f 3 ( 14 . 2X) *13) 

1401  C 

1402  C  RBTURN 

1903  C 

1404  6595  GO  Tq  1Q6 
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1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 
1418__ 
1419 
14J0 

1421 

1422 

1423 
14?4 

1425  * 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 
14J6 

1437 

1438 

1439 

1440  _ 
1411 
1^42 

1443 

1444 

1445 

1446 

1447 

1448 

1449 
<430 

1451 

1452 

1433 

1434 
1455 
1 4  J6 


C 

C  SUBSBCIIOB  7380 
C 

c  m  OUTPUT  -*•  OBJECTIVE  POSCTXOK 
c 

C  FARTS  I EPL ACIMENT  COSTS 

C 

7300  M8TICPCS  ■  0 

D«  YSSI'n  «  f.MM . .  '  ^  " 

waTtciegfH)  »  o 

DO  7316  J  »  JFnn,J»(6-M)-1 
JTPSCHB(J)  ■  JUD*PU)  ♦  3T«{3)  ♦  JSCR(J) 

BLCPjJCKDfJ)  *  FiOAT«X>»eTCr/no»TrjslHT*S)4FlO*TfJTtSC8D{ JR 
JTLCPCST  { J  )  «  RJ,CF1C>«D(J»*P18AT{(j*IP(J)  1 
M0TLCPCS f fff  •  MOTLCUClfMT  ♦  fftlCFCSTI SF" 

1110  cemixm 

HXGPcS'iH  j ■KX9FCS  ( ft  J  #R«TLe»es  f  R ) 

_tf**£fCS  *  N5UCF5«  ♦  SfltLCP ts  ( n ) 

7305  CeMTXMVE 

UXPCST*HXPCSX-*»BTj,CtCS 

C 

C  MODULI  PIPELINE  COSTS 
C 

HTPIpCIT  ■  0 
7320  DO  7J38  n  •  1f*H 

DICMDDI(M)  ■  FLOATMf0FUTSj/DCO**VS*PRKFH(B| 

ptfe5timTM|  *  Dttmir* mTOTW*' ffyiTFiniiemT»Tifr 

8»l??HFB{MMf(100j0OFS*TSpe(M||*PiOATniBP2PI(M)n 
MlXPCSt(M)  ■  FXflQtiNtMj *FLOKT(MSLV(M) ) 
flJ[P2r(N)«MSFXFjN)^9XFeSX(M) 

HTPXPCfT  •  HTPIfClT  ♦  F»ffeSt(M) 

7330  C8IIHII _ _ _ _  _ 

C 

C  MODULI  (1A1RTBR  A*CE  COSTS 
C 

LOTMCSTa  8UCTM?SSl0iflCXHCStJ-0|LCTMCSX4O8ILetMCS*2a0 
7340  DO  TlSf  M  •  T,NR  ---  -- 

FACN|TSW(Ml4ElOST(HC|6|/PLOAT<XsXMXFS)*PLOATtM«RTSWTH<M)} 

FscHfifs  rMlaTOimrcTO  7n  0  If  tTs  XNX  irtl  •F^e»T  I  STimrs  ( HTT 

PACMRTS ( M )*fL0Af ( LFC161 /FL0AF( TSXITRS ) *FL9aX ( HRXS ( N| ) 
LCHCpT1fM)«fACMB»»MM|4Pl6RTfllDFClT<M)) 
LCncSTl(n)>F4QM|TltllitFlOAT(nBSCST(M)) 
iCMCS*S(H)»>'ACFl»MT»!*FlOATfSDFc»T(M)) 

L  X  C  s  t  J  <  M  !■  I *  C  STJUH#  *>  0  P  C  «TSCB ) 

TXc3x2?iit^t  xcssra  (  h  }  ti  c»c*Ti  {  hi 
LBCSTliM  "LTCSTf  (|lL#taMClTl  (Ml 
LCHCSTTM  •LC«CST1(M|*liCjiesfSMn 
LXCST)R)»LXCST(M)#(oMCSTfM) 

ICtMCSWCTMCsmcMCSffMi 
LCST4(M)«LeMC8TMRlFLCRCST3(4)«leNCST2<n) 
iCiBc«tMiirtittirr*TflWfifiTWi - 

LCTMCST3*ICTMCST3*LC»CST3{1) 


I 
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LCTHCST4»l,eTMC3XU  +  tcm{n) 


7350  COHTXUVB 


C  COMPLBTf  mini  COSTS 


7360  iic«iiii«!mxarci;}/noii(Simiii*n>tit*i<iiiTS) 


t)LCDPcit«xrxx(Ucii9fs*noAT(iBPesTn 

_ _ _ 


iiii 


BLWBSCST*XHX(Bl,CBSSS*nOAT(SBSCS*n 


1471 

H7.2 

1673 

1*76 

1675 


PbCR«T3T*Xri|(B^T0TIT|»WBSCST 
L5TBCS I  L  C  R8  X II  *Jt  fl  P  C.Sf 

piRCS'f*LCTfCSt/pOIBl»f*xSxi'*t|/lPCTC 


PTCBsCST«NLC|BTST4>XI«YBCST 


EtCODRitElKFH*nOAT(NOHVTB)/0C0K7R 

jsiT3it=»tfta,o*ii'iTa»J! _  _ 

EBIPE«SY»ELCPD»*(  {9BBTS»e/lB6,0J*BDPlB»'» 


1479 

-16BQ 

14M 


KTPIpeST*BPIPEQTT*?L*BT (islP ) 
NX  PI P«WEPXP * R I PjPCit _ 


JL  Ut  A  M  S  PORTA  T I  OF  COST 


HUB- 


lCMTP.ABS«XrXX(BLCMBfi*PlOfcT(tTRCS»» ) 

1365  M._71ftUM*ML_  , _ 

icnmss  fK  )  .Trix  (  PBCSIIPTS  ( •* )  *t  tBAf  mi«ST|H  J »» 

BXTB£BTlHl«MICSi{M?-*l£!!mi-4{n5  _ 

LCnTTKl|l»LCHTTBBN4lCNt«Bl8fin 


COMTmV 


EXTFA**tlTmK  +  tCST*BBS 


flXTHANtiMXTPAlI^lCOTTBBB 


C  OBJECTXV*  PUMCTI04  SUHIIART 


7  370  R0BP{tC|TpLCTlC3I  +  NTBIPesT  +  LCBT*»!l» 


IOar|lTBT*0JXlCHCST*|.CX»c*T 

IHPipCflX*RfHPC|TUB«XLC»C«e 

po  ;i»o  a  •  n*a 


H08r(IC8T(NJ«tCf»CSTHH|#HPlPCST(H)f«aflCPCT(l1MLCNCB*3(H»* 


ALCnCSTHM 


|tcncSf„ncncSTBLCrC»T1("mgliC3TBTH»6BCBCBiatH) 


1509 

15J0 

1511 

1512 

1513 

1514 

1515 

1516 

1517 


1 5_1  ft 
1519 


1620 

1521 


1 52  4_ 
1525 


15^6 

1527 

1528 

1529 

1530 

1531 

1532 

1533 


1534 

1535" 

1536 

1537 

1538 

1539 

1 54  0_ 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

i|iQ 

1151 

1552 

1563 


1554 

1555 

1556 

1557 

1558 

1559 

1560 


mpipciTin4pJCPcsi*iiej»est(K) 

IHPTECPCwXEGlLCFC+tlBTlcJCsfll} 

7380  CONTINUE 

IXCST-JXCSTVTLCHCST 

IXPXP»IXPiP*lHPJPCSt 

IXPART*IXPARI-HNGUC*C 

C 

C  RITMRB _ _ _  _ _ _  _  _ _  _  _  _ 

C 

60  TO  407 
C 

C  SUBSXCTIOB  7680 
C 

_C  OUTPUT  ROUTINES  •-  OBJlOTm  FUPCTIOB  TABUS  _ 

C 

C  CpMPlBTe  *»GtNf  CpSI 

C 

7400  IPUP.BQ.1)  80  TO  J|B$ 

IPG  *  JP8«M 
PRINT  7410# IF8 

7410  pelHAt(1I!1#f3T7"0B4IflT<V8  7U»CTt0|-.TlT,,,»48t  ,ZW 
PBINT  7405 

7405'POSnj;Ti"0-'»T.i4,',CoH8i|TB  El»lttE  M ATRT8HANC*  COSTS" ) 

PBI4T  7UQ3 

7403  pO*HAT( "6"# /«T29 » ■•  *  7  *  PACTOlS  *  *  *  *7) 

print  74i5#iPcyc.i7gxc 

- 7  41 5~m»rA  Tf-VtH  37  "8*81*8 —  *  *7X2."7  PUT/ IT*  TT7BAJ1 

4  "4V.DBP,  »,}*|?2J'|!|lir]  _ 

PBINT  ?420»X«WI»8 

7420  fOBn^Tf"  **T13,PRBM7L*  ",X3."  CST/IIB  CSI/RB!1  ", 

8  "C5X/8E4  COSTS" J 

PBINT  >425 

7425  ro*«AT<"  ",Tla, »—*♦•*  -6---.-  -r-,-*,  —••-•••, 

«"  —•4—7) 

PRINT  7430#  BOTOX*!# Ilf OTRt, BlipST; NLf 88*30 

7430  POSMAT(*0"»,,8ASI  R|RVj,S  * ,  IX .  14,  II ,  F8 ,  « #  3X,  15*  1  8X .  17  ) 

pli  i  ttYssY  it  |6jVjl,ny»IsT,  UtIcit  ,  1 1  iJltsT - 

7435  PBlnAT<"0%"  BAS*  »XS  ",X4, 1X.F8 . 4.  lOXpIB, 

BlOXf X7) 

PBINT  74ttO#JfFIBHRTl#*LC»«TS,»DPCST,NtCDPCBT 
7440  r«KA*("0"i"  DifOT  H0*  '  ",X®,  1*7r* .  4, 18*7X6 ,  3*, 

.  «m  _  _  _ _ 

PBINT  94B5# LCTICST 

7445  rOPHKXi"0",  /»,"«*AMP  »0»Al".  41X.X8  ) 

c 

C 

C  '  . '  ’■ 

7J00  MINT  7510 
7510  PQBnAT<"0") 

PBINT  7515 

—  75 irrm att» 0 r,H b , fowic! iv*  metioi" ) - 

PBINX  7520. 
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f.  1  7J20  rOKnA*<"0%l30f*«0BWlI  HXX*TI>ft9C>  COST  HI*S-| 

1562  . . .  IlLitiSSfiiLIUCiUPlS . .  . , _  _  _ 

1663  7530  rO*m*<«8»,JV  MODULI  %JI,rlOm  U*I 

9»64  tr  DEPOT  '•iXt'TOVH  Si?.'  XlS"| 

1665  PRINT  75U0«SSXH|RS 

1566  7540  FOUMXTV*  "♦  "XTIM" ,  1X,"R0*E"«ATgR»" ,  3t."(16P  *|!IOnS  ", 

1567  61X,13»?  COST  PACT0l»*3t;"  OlPpT") 

tiM _  -lilfJE  _755fl _ _ _ _ 

1569  7550  remit**  5*lix,i4t"-");ix#m".7i,i;*6<"*"),«x, 

1670  «1MV"J.1X»l3<*s")*#/» 

1571  DO  7570  M-1.SH 

1572  P»I*T  TSSOillOBXBBIIISJjflloBVIlfBJ.NiPTSIITHdJ.FACHFTSStm.HfPCS 

1573  «Ttnj# 

1574  _  _  MCnCfrU(li)..  _  . 

1575  7560  rOIKATt”  ", A0 ,  IX, A 1I'E7,BX, VI . «» 21, 18 . 4X , |9 | 

1576  757Q  COWTIPV?  ........  . . 

1577  PRINT  75»0#LCTMCST3 

1578  759Q  PO*«AT< "0", TftS, ■?a*6&  _  . 

1579  C 

1560  _ C _ : _ 

1581  C 

1582  C  .  _  _ 

1583  7600  PRINT  7610 

1584  7fe  10  FOHUaK  1@0 ,  T28j  NO_g£f  Of  f  VE  Py  8CTT.0I" )  ......  _ _ 

1585  PRINT  7620 

1 5  8  6  742Q  jOKn^T*  «Q«.T21,  WCOPBtjTB  EWfltN  g  HP  E  LI  Ml  C0»T|") _ _ _ 

PRINT  7630 

-  «18  7630  FO*nAXi-o-tiX,*6Ai5X  ptHigp  rAti  v  1  T  S  M  l  !%  .  _ 

1589  «•  PIPELINE  STK  HIT  TOTAL"  1 

1590  FSI*T  7640,HPROfS|J6e| 

1591  7640  POMHAT("  ","|EV1Q00FM*"VI3.*/,',I5.2X,"1A?E  PIPE  RATE  PlP|-,3 

1592  ....  .61#..  _  _ _ _ _ _  . 

1593  *-OUAM*IH  PMXCE  COST") 

1594  PRINT  7650 

1595  7650  POKHATI"  "#  8  ( )  ,  2Xt  10  )  ,  IX,  24  •— ••  -*•»  *). 

1596  _ _ *2X« 8  ("*"J 4lXj l.r  1X*7i"r"  11  ^  _  _ 

1597  PRINT  ?660,EXKrH,EPCDpR.SllRT*FC.mXPl.lrt*FC, 

1411 _ *13111  ■aEPIPEQTT.MS5B,IIT1TpcST  _ 

1549  7660  rOHHAT<-0"#P7.4«2xiiio;7,  IX, f 5^1.1*#  IX# 

1600  jro  1 1, 11  .niaiiUJumai' d  _  _  _ 

1601  c 

1602  C  O0JICIIV*  PyKCllQV^--  MOpUiE  "Atk’TlNARCi?  _COSf S _  _ 


1603  C 

1614 _ _ 

1605  7720  PRINT  7730, XPG 

1606  7730  FORHAT1«1"fT28l"OB4EClJVE  FURCTlOl", 1ST, "PAGE  ",I4) 

1607  PBINT  7740 

1608  7740  rORHAT1*’0"»T22,NMODWl|  HXiRTEMaScI  COSTS-»lOMI* £ 

1609  PRINT  7750,LXCTC,tFCXC,lfcTC 

1610  7750  FO*OAT4"0"#4l1"TOIAt  |»»TS  *",12."/  DEPOT"* 

1611  I"  TOT  A  l  BAST'  *"#X3?"/  1 1 1 E" ,  I X  ,"  IOTaT",X2,"  T»S") 

1612  F8IMT  7760»XSXHXRS/XSXg||| 


1613 

1614 
18 15 
1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 
1J26_ 
1627 
162B 

1629 

1630 

1631 
163£  ' 
1633 
163U 

1635 

1636 

1637 

1638 

1639 

1640 
16m 

1642 

1643 
1 6Uw 

1645 

1646 

1647 
1646 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 

1663 

1664 


7760  FORMAT*"  ","XTBn  HOP  **HvlS  '  60S*  FACT", 

«"  BOp  IgNVLS  *,11/  CO*T  FRCT  BEP0T8B A***) 

V 1 1 M 7  7770 

7770  FORMAT*"  •#"?—«  •#  t  )  ,  1<«  6|  *•" ) ,  1*  ,  9f IX  , 
41Q(""").1X»5C"«n,1X.0(""*1,1X~.l2("-").//| 

DO  774  6  RaJT,IIN 

PXIMI  7770,  B0DAB8*  f  N  )  tf HffrRfS  f  N )  , FACHPRTS  ( «)  , BPPeltfM)  , 

_ aBBison^xcmstimiiBgcsTtBWicwcgTho _ _ ___ 

7790  FeRBATi*  •,A*^2X,I6VJ»,Ffi.4,1X.X7,5XiX4, 

Ms«X|X«> 

7780  CONTINUE 

PRINT  7795,  ^CJBCSX 

7795  r08riAT1"0',»T5l,"TOTlL  ",I9.///1 
C 

C  OBJ ecT IVE  F0KC TlOt»  -.TMBSy LE  PlffLT*F  COSTS 

C  _ _ 

GO  XO  7825 

7820  rOKnAT1*1»,T28£POBOICnvP  PURCTXOl* , 1 3* , "PAGE  ",I4| 

7825  P*I»X  7830 

7830  ?O«nA*<"0",T26,M00¥l<E  »*P*lfB«:  COSTS") 

PRINT  7 8 40 

7840  rBRnAT^"0"L6X,"0XXl*  D*«XdO  »ATl 

6-M8TS  BABE  fXPUX~B«  MOOPlF  COST  PIR"| 

PRINT  7850»B0X0TBJJJC| 

7850  FORMAT*"  "  X  X  E  M  *~*R/1§00fN**  ilJ.'V"  .  XS,“  PIPE", 

«"  PIPE  QXT/NOp  PBXct  HOBOIE") 

PRINT  7880 

7860  _Fe*nAT1"  % 4r*--"A1X, B<"*" 1 , »X, ,,6r-") . 

4"  —  -I,—*.",//) 

DO  jTj)76  M-ljKM 

PRINT  7880,BODABB*t|O;P»XrH(  «)  ,DlCMDPRfF)|HOPXPt(M)  .BBpiPion 

_ Aj_ _  _ _  _ _ 

«P2PEgTf»TfK),B8lp(BjABp7pesT(tn' 

7880  FORBATI"  •  ,  A  ft  ,  IX,  F7  ,  *f  2X  F 1 0 . 7 . 2r  ,  14 . 

43X,X4*2X,F9,5,1X,X7*1X.X8) 

7870  CORTIMWE 

PRINT  7 8 90, MX FX POST 
7890  FORBATf"0"<T53,4T0Hl  ",X81 

c  *  . .  "  " .  ; 

PUNT  7900 

7900  FOiBAT<"0",/f T18,*iB*B8POHT*Tlf3B  COSTf") 

C 

PBINT  7910»LFCXC,tFpYC 

7910  FORnATro%T2B,»  *BH  *  T8AR8PX  " 

~4,TI»  *•! |  A B 7  ) 

PBINT  7920, I SXMI*S 

7920  FORMAT*"  S*m||  BOBEWeUTOBE  HR^OVAH 
613, "  CBT/1F1  C0«fB«) 

PBINT  7930 

7f30  FORMAT*"  .t— ....  , 

•—  r  . . . . . 

PRINT  79U0,R|XSRRTS»neVlTS(8T1tCSTfLcRTlAlS 
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•  5 

lntlL 


1667 

16i4_ 

1669 

1470 

1671 


7940  rOKMATI-O"."  IMS  COHPiBTl  HIS .  ■» f  5* ,14 , 3X ,  9B?U#  1* ,  27, 2X, X7 \ 

_ 04  _ , 

PBINT  7960,lODIB«*(H)  ,M0DUiIfin#MTMlTS<I)mCHS*TSM1)  ,MTHCSf( 

«.lCf1T*»NS  (M  > 

1144  I  ORB  h  M  V  "  iA  blXjAl  b  X  4  *  3  *  <  F 11 4 . 1 8 » 1?  J _ .  _ 

7950  CONTINUE 


1673 

1674 

7970  FORBAt1-0"VT34,*MOP«l*9  To»U  «.X7) 

_  _ PRINT  7980,  LCaTIRAN  _  _  . . 

1675 

1616.-..  _ 

7980  FORBAX<’,0',*T36,N3*AiD  *0*Al  *,X7| 

c 

1677 

1678 

C  OBJECTIVE  FUNCTION  •-  »«*»  llPUCEBERT  COSTS 

c  .... 

1679 

1640 

8000  CO  HQ18  H  •  1 .  MB 

1611 

4442 

IF  (M.E0.01)  SO  TO  80QI 

IT  {B.IT.OS)  SO  TO  8<M1 

1683 

16AU 

IF  {M,f0,05)  SO  TO  8015 
ir  Itt^BIfOOl  GO  TO  8011 

1685 

1686 

8005  JPG  ■  XP0+ 1 

-  E1IN.X  102D*.1RG _ ....  _  .  -  _  ....  ... 

1687 

-1684 _ 

8020  FO*MAX<',1",T50.,,PA9E  *,14) 

ER.INT  8Q3?  _  . . .  .  .  _ _  .  _ 

1689 

.1690 _ 

8030  FOlttAXt"  •  .TIS.niPE'lIttlTSO  fllTS  «. 

8"R..gPLACZttENX  CPSTSU _ _ _ 

*691 

J92- 

1693 

1694 

1695 
1694- 


PR1NT  8040 » J.ECTC 

4045  I9WAU''  !Ul2il-9tAl.-liri  ClfiH*! 

8015  PUNT  BOtoS»ttODUlB(B) 

004 5 .. tQJLfi LU "  0"  ,J»4« •  »?•  »  A 1 5 1  _  _  ..... 

PRINT  8050 

8Q5Q  FOIWAlt"0%"y.AHI"J9Xi*»A»f. 41. "TOTAL  «t _ 


1697 

1494 

1699 

_17Q0 

1701 

1M 

1703 

1704 

1705 
1106 
1707 

1706 

1709 

1710 

1711 
17J2 
1713 

J114- 

IMS 

1716 


6"SCHgl)  SCIEO  RNVl  WHIT  fOTU*| 

_ y;j *  1 040 #  i ax h i  * s 1 1 Let c;nc ?o _ _ 

8060  FORHAK-  %»  BO,"f6X»"11lMl",«I.,’R«Vtr',X3g*1*) 

_ «-  lb  Mi  1*11  _1*I(L»L  __  _ 

print  6065 

8065  ro R  B  A  X 1 1M  . 4 (■■■). 1X» 1» r ■■ 1 ; II, 1ir»«M I ■21.101 
«1X»5("*-)#3Xr7<«-")*//) 

_ ftg  f 074  J  •  Jfll1.Jltl4lU1  _  _  _ 

PRINT  I080,J,PART(,|)  ,  JTPScRDf  J 1  #  RLCPSCRD  ( 4  )  » 
_ <JSl.Pm.  JTLCtCSKJ) _ _ 

8080  rORBAH"  «;z5#2X(Aia*4f;ttt(4XfP9'.5.  IX. 

_ UUlllM J _ 

8070  CONTINUE 

PRINT  «O90#fl5*lLCPCs<N} 

8090  rORBAX<"0"  ,T36.»O00Ul.E  S«BTOl AL"  .  IX ,  IB . //> ) 

8Q1Q  continue 

PRINT  8095.UCHCPC4 

8095  r  ORB  A  XI  •  0",  T32j  "J  DU*!  8»AWB  TOTAL  ,1 9J 


b_ 


8  IOC  190  *  IPO  ♦  1 
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1717 

1718 

IP(I4VB,8T» 1)  GO  XO  » 1 94 

PH»X  «102#TPO 

1719 

1724 

8102 

F0RH4X("1",XTr,"0iTiCtlv't  FOiCTXol",  1  Q 1 ,  "P 4H75  •JYUJ 

GO  TO  8ig8 

1721 

1122 _ 

1723 

1724 

8104 
__  1155 

Flint  8  1 05# XPO 

FOHM4T<"0"»T28."OB-JBCIIVE  FUUCTXOl"  .  1  0*  .  “»4#B  ".14) 

810B 

8110 

P1ZMT  1110 

F0RH4X1"  •,T33,»SUH41T») 

1725 

P1ISX  8115 

17?6 

8115 

FOR«4X<"0"»T30,"F100HM0'’rF1l)") 

1727 

FB18T  8120»XPATB,FTlN|,LTlMt 

1728 

8120 

JORH4*1'*0"?"D4TB  •7»*??53,"T!H*  «,F5*.2,"  SIC  «,I2) 

1729 

FRIST  1 1 25 

1730 

mi 

8125 

F0RH4T1"e",l8t"4  *  ♦  M4I1»TB»4*CE  COSTS  *  »  •  F". 

1732  _ Pirn  8  130,  LICK 

1733  $130  P0»n$*<*  HOP*  IlOHt  VIIH" , 1 « 4 , "  LINf *  * 

17JU _ _  _$T _ 1BRT  tftlltS 

1733  P«I»X  #135 

1736  8135  FOMA**"  #$Sf  DFFOX  DKFCT  tO»n% 

1737  4"  COSTS  COStS  *  COSTS  COSTS") 


17J8 

1739 

17«0 

1741 

1742_ 

1743 

1744 

1745 

1746 

1747 
174  8_ 
174  9 

1750 

1751 

1752 

1753 
17J4 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 


Pliny  $140 

8140  FOSH4X6"  *,***»•  •#»*••  «;;»>• 

6"  wmmmmm  r  + 

Pliny  #145»PXCBSCST#fteDFcST.'lCl*eST.8TfmTTJlcminS, 

anobtHCST 

814b  F6*NDK1»0»»‘M,.U.li,fMrjTr 

IXP»  1  •  »  *  8 1  Lt  8»//| 

DO  8 1 SO  M  •  1,81 

PlliX  •155jW0D»BBlfl^2ftCl1CSTl(«),lCMCST1($),LCi1CSt3<H), 
6LC8T41M1,NPXBCBS(Nl*LCMTll9S(H)#8fiTLCteS(l),N6Brf)cfV(i1) 
813b  fbsw»t<  11  , M»I»>I»<i#.l3.T»;xq.H.n 0 ) 

C  T0TM.8  F01  80DUlfB 
8150  C04TXHWE 

Plini  #180»lCTHCSX3»LcTHesTi;LCTMCST3,I,CTlCST4, 
iBtFipCSIjLCMlTllM, PlTiePCS.XSirlTOT 
8160  FOllfTI  lHO»"BODTOTw#X8,2B,tBrX9,TllrI8,l8f  ?10) 

C 

IP (lA^O ,0T7 1  j  00  TFilTO 
XBBFj#t«o 

XOBrj|OT«XOBFBTOZ<npeBFMesX 

XlO0OTOT«X8Op8TOT«XBBfNsZ 

8170  f»i»  #iee, xicicst,iiipitesT. realms. xiGncpc, 

«I08FB«T 

8  Too  roiiUTiiiT,  «5l 4 #5  *»T| t  s  " ;  t  3 1 .  T1 ,i 8 , 1  r, X 8 i  ri 0 y 

C  lETURH 


1764  IFURVS.OT,  1)  00  to  *1*0 

1765  00  10  108 

1768  8190  iruemx.ro.t  1  ao  to  ###• 

1767  Fllix  lifr#llC8t»XXiXp,HXtn8.TXpI#T.X4CB8TOT 

1768  8195  FOKHA'r{»0-,fSlED  101419  ", 4  (  2f . X9  » ,  3X , 1 1 0 1 
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1769 

JIM  ..  . 

1771 

1772 

1773 

1774 

1775 

1776  ... 

GO  TO  9995 

C _  .  .  .  .  ..  .. 

c  SUBSECTION  8298 

c.  .  ..  ..  .  . 

C  OUTPUT  *•  SCREVN,  N*TS# 

c  ...  ...  ... . . 

8200  PRINT  8205 

8205  FORMAT* "I* ) 

1777 

C 

1778 

1208  PRINT  1219 

1779 

C 

1780  . 

c  ...  . .  ..  .. 

1711 

8210  FORJlATi"0"iT15,**  %*: 

1I8_2_ 

«"»EM0V*L5  PE8  1000  M 

1783 

PRINT  8220 

1714 

17*5 

1786 

1787 
1UA- 
1789 
1710. 

1791 

1792 

1793 
1714.  _ 

1795 

1796 

1797 

1798 

1799 
.18.00 
1801 
1802 

1803 

1804 

1805 
.1.806 _ 

1807 

1808 
1 8C9 
1610 
1811 
1812 
1813 
1816 

1815 

1816 

1817 

1818 

1819 

1820 


C 

C 

I 

C 

( 

_  c 


8420 __M*ltA21*  .  . .  .  .. 

PRINT  •225*XP8T8.m«|,iTl«8 

822b  FimmuQimti  -irs;?*"  mc  '.12) 

MINT  •230»81KXV<J 

8230.  _ 

PRINT  8235 

8235  FORMAT*"  •VT?0, »&**•*•, 2*. «*  I  9  JI  X  A  *  ?*, 

«•  »  ♦  n  Mt  '  »'i 

?»INX  1240  _  .  ..  . 

8240  FOf’NATC  ITU  *# 

.  .  _ JUTS _ 8*J1A  .  *J _ 

«"»RTS  *8*/") 

PRINT  8250  .  ...  ...  _ 

8250  FORMAT*"  »,i  NAMB*#«1i;*Il*I«*VXL9»3X.**m  *•, 

*m  1800  JFHS  .  R*f*  *  1010  ri:"» 

PRINT  8280 

1360  r OB n at* -  %mv )int8tm-mi:»x. _ 

)N4X#8(7-"i.4XMt*-’)»#«*8t-l*)1 
»»!«  l27e,B88*f3tStll*K?ll«lt»TSp*-M**R  ... 

8270  FOBHHX<,»0%'«C0miTl  t*9 - .  1 8x . F 6 4 2 , 

*4X#*6.».9Xt?f«3#4JS?Hi«*//l  _  ..  ....  _ 

00  4240  M  •  1(1H 

._..  .  n**I  821^8^80^(111, 86>Tse|ttjfCH.8»»TfPC(>nt _ 

«B*KKH(M)#FN8ISP5(HHr»lRfR(«) 

8290  forjiax*»  «,M4#3xixf,4»;»6;2;»x#Fi:,*.6X# 
STi,S'4X,r$,H) 

8280  CONTINUE 

PRINT  8295#  NRUtI 

8 2 9 5  J 9 R Hjk * <  1  HO l'| 01* . S7_  *_  Jfl*  *lIL i) _ 

IF  l  ISJlAX  ,  f  0  tTSP90M  )  80  TO  4399 
PRINT. *298 

8298  FeRHAT1lHO#15(,*P,r)ilOX#«RB^T  B«D  lUl»"*10I#  15****)  ) 


8 299  X* ( XTIIM  , R t  .IIoIOm)  *€  1 0 26 
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1821 
1_822  _ 
1823 
182“ 

1825 

1826 
1827 

1 821  _ 

1829 

1830 
1631 

1832 

1833 
183“ 

1835 

1836 

1837 

1838 

1839 

1840 

1841 
1042 

1843 

1844 

1845 

1846 

1847  " 

1848 

1849 

1850 

1851 
!H2 _ 

1853 

1854 

1855 

18  56 _ 

1857 

1858 

1059 

1060 
18*1 
10*2 
1863 

186U 

18*5 

1866 

1067 

1868 

1869 

1870 

1071 

1072 


_IPU6V6,EQ,0)  SO  TO  9992 
C 

PUNT  6297,  ENBTSPcT,EKrrPT 

8297  FORMftr<"0",Tl5,«'SE|ED  TOTHS  ”,2X,*NRT9  X  *,F6,2,2X> 
4"»EM0V»LS  ”,£8,4) 

C 

C 

C  RETURN 
C 

SO  TO  9998 

C_  _ 

8600  8LKAVU  «  *»)  *  AVFBAflP  *  <<<* 

C _ _  _ 

~  «WSEI»87'MUBT«0TltT«T»0J*!T0T,»T«8|W>C8T^5T181TS’PC*lA!riT5 

bo  8608  n>9,NN 
MXoTr<n)*0 

f*KrtHM)»F*P8ri)/F5»4TflSM»Xi 

FN»TSFC(K)»FN»TS(M)/FtOXT<TSHA1C) 

"  nm(«).mxnH9XTfMfcMsF<«rn/u©iT(Taw*xn,*.s> 

MM5ET«»nSET*nUSt(H) 

«UO(M)»iriX(  inOAj  {K4136  t«))/FLO»T<TSMM)  )6,5) 

H«DT«hVDT*|S00(M) 

«T«(M)4iriE  (i?t,OAlMUTN(!1)  ) /F LO»T< IS* AX  1 ) # J 0 1 
HTHT»HTMT4')ITII(H> 

HJci(si*TFixTi  Fto*t  <  b**  ci' i  n  n  /float!  x3»fixr)>,l) 

«*CFT»«3C*T*I1 BC|(M) 

!1T0Tppl()*8W*f  (8|*MUl<N»  +  MxM(9)+nsCR(M) 
lTQTFT«f»T0T!lT*«fOH(?1l 
8605  CONTINUE 
C _ 

ieartreQT*otictncaT"dFiCT*csTf*<)JiCTEcfT»o  ~ 

NOTI,cNCSw6HCTH5ST«NiOHctMCST2«6»LcMTT8ANOO 

»tPTpC8X*Ol0O*X|lCgt*8ncTnestl«8;LCOTTPA»MlO 
_  l>CNTF»QS«XHX(tri0*f(||KT»Ain/fl0A»»aiU>)>-»j5) 

Vlio|c«f  *s»xf  f  i  Hut  f  in0«i«pn«  Aftims)  i*?s| 

_ _NTCB3C3l£2FIXj(£l5(lHNNBAs*l/FLOATfISH0X)  1*^,5) 

L  6^  C  ST  «  f  l  C  BTclT+iTclfeiST 

NTPiPCST*mXtfnOA»(N*PTp)/UOHT<ISMAX)  )*’,0) 
N0BFKC8T#LCXBC3f+)|t|lpC8t+LCBT»»N8 

C  _ 

DO  8*10  M«i,«N 
ICrtTR A  N  3 ( M ) ■ 0 

icnCsxTjrtifl  ~ 

HOOF  gC0T ( M ) »0 
LCST4 ( M ) »0 
DCST3»0 , 0 

DC8T2«BL0AmXCST3{|»)  )/UoAT  {ISHAX)*‘.5 
tO«C9Ti(N)*lfXX(DC9f3| 

mne«vii»ie¥ievts*ieicifT(fi  ' 

1CNCST1(M)»IUX{  (FtBATfI.XcSX1(6)  )/FLOAT{ISNAX)  )♦',  5) 
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873  iCTrtC»T1*lCTWCSIUicncS*1(«) 

Jim _ L0HC3»im«mxnnpmiscsMiwn/rmt(imxn*;5) _ 

1875  lCTMCStHHCTRC3I2*iOHCSf*<Hl 

1876  . .  icsmiLumtcaii  (ni#itc«ci<iiHi>ieMcsTaiiii_- 

1877  lCTPlc«f4l»tCTBC3T4*l08|»(8j 

1878  _  _  LCncaTtH)«tClC£tit!UAL8llgl,UfHt  _  _ 

1879  LCTHcat-lCTMCSmgBCW'Hl 

iaeQ  _ _ _ tfpipcaytm>inxf (ftMffHiii>mn/FtoAy(8338>n^.5) _ 

i8ii  woTici,cscM)«x»nnn*Atei<x<i*eR(m  )moAX<im*u*,6) 

ui2  _ _ icp.xi8mjiri.XFxiLui°mii7ii»iiiiu/im»ii«n4*n*;»»  ... 

1883  LCnTTRA8»LCnlT88>'*fcCXTfA>8fn) 

.1489  _ _ ftpar 8C4T  m m  1  ♦HQTLcPgg  ( 8 )  HQRtRAR*  ( H ) 

1815  HTPiPCiT«n»PXPCST*HBlpe«*(Hl 

1886  _ MUCMogimcMsiflAXMiSgtiil _ ... 

1887  8810  cemm 

1888  _ IQ  B  r  ltd  tic  HLCllU*9JPXlCAl4iai  LC  Ml+lOlUtAJI _ 

1889  LCSTTBkd*I,CMSTRAN4XCNXlA88 

1490  _ _ XflB!fl«*9l _ _ _ _  _  _  _ 

1891  IO9F(KH»X0BFRT0T*SQBPN<!S7 

1492 _ ItCqC8X«# _ 

1893  ItcncST.lctMCST^nQfSCSX 

1891 _ JL1S  X1S  ZC*  01 1 El 1  j?  C  8  T  *9 _ _ 

1895  UlGTlCPOmiCPCS 

1496 _ AJIf.IlCSTsJBTPliCiXtIlTBlILtfX _ _ _ 

1897  C 

-14SL8 _ _  C _ 

1899  HOTOTKT>O)KaUSClT«Q)llauS827*9)MQTR2T*0flQ4ll1T*O 

1900  _ EQ  8615  KfM.KlAST _ _ _ 

1901  mox*oc)»» 

1902  _ 4flu iljUlUHI  t  mSATllflU  1(4 li /UA AT t HB \ _ _ 

1903  N80SF1T»HGUSS1T*NGU8*1fK J 

1949 _ trial*  tpaP2nm/riQi»»»iuin*j&i _ 

1905  N8USE2T»83U3l2T*NO0*f|(Kl 

1906  _ _ M?n2  UU4lIUUIUllilflIlULa/fl.0AT  ( IPU*  >  )♦.«!! _ 

1907  BOXn2T*N8TM2X*KOTn21K| 

14Q8 _ MIMmamil  t  rLfilliUZliR  i  j/rmt(iw»n»,li _ 

1909  90TniT«80TmT*NaTHltK» 

.1410 _ I8T_QlMJ5X.8qyS81(R|i>iflgmfH486T|2(R)>l»gI>M{iJ _ 

1911  K«TOT*T*NaroTAT*NST8T*fn) 

1912.  .  841S.-£0JU»«I  ....  .  ..  _  _ 

1913  C 

1919 _ _  _  XMlSg  . . .  .  _ _ _  _ 

1915  GO  TO  9993 

1416 _ C _ 

1917  C 

-liifl _  9 poo  comiyg _  _  _ 

1919  c 

1920  C_  XfllUT  DATA  *_?  *  *  *_?  L*  *  #  *  *  •  •  *_• 

1921  C 

1422  _ C  *  *  «_  7 , 0_F  1 08  *  10  API  79  F  ACTORS  BRVlgW  •>?»♦»»•»< 

1923  C  PART  NUnRFBS  301,  jOj  R0VID  F*0H  FIN  TO  ACC  1  8X«CI  TR1*E 

1924  .  C _ Al?  *X*4l!LAlt  70  FAR  4*4  SAflSg  fS  F|N  RgffQVAL*  RPP  29JAN79 
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C  T  KARKS  AID  IMDXCIS  - 


ZNDAfA  m  »B AZA220cT»9* 


8 *01  at  m  *»ioop)Hoo<rm« 

OBDUJLB^}  »  *700  AB8MMT0* 

noDUL*<2)  ■  _?ioo  Ace 1  n&" 

H0DUl*<3)  *  7300  rAf 
HflOUl.K<4)  •  *900  C9I*» 


«oo  r«D  p«  tut 
7800  atiilAX* 

_  7f00  ACC?  woll* 

C  ABBRSTIATID  NODUlt  *AfJ?$ 


HDPULg(6)  • 


1935 


HCPABB»(1)«g  AQO 


flaDA8»at3)*ncci 


$0DA BBl IJ)*"  7  AN 
HDDA8»KA)«*  CO* 


HCPA8»B(5)«»"  HP! 


M0UABB*(8)«*  PDT 


PART(I)  *  7700  AUflR  OU*M** 
PAXT(2|  *  *(0*  OPC’ 

PA*X{J)  VPAfPc/Poe* 


PRRT(A)  »  7 XQC 


*  n|p 


M**(7|  m  riOT  VAKOf 
?»*XIJLL  »_7J0a  VAUf 

pi*X(9)  •  7300  PA*  DU««r 


PART(1»)  *307  PM*  8* A 

pT*t \  ii  1  •  •roi  fiii  i«a 

PABTMOi  m  *309  lEtUMV* 


*900  Colt  DOMNy 
*901  9|T0  Itftl* 
*902  5st|  |*Al* 
*903  63Tl  |«Al" 


P A  RT ( 1 9 ) 

f**x  (VI) 

PART ( 20 ) 

PART (21) 


PART ( 2* )  ■  *906  91f3  SHl* 
f  A*X (  28 )  ■  *907  101*8  SHU* 
PART (R9 )  •  *908  11l»«  SlAj,* 


"90*  lilt*  IIH« 


TTfiTWrnTf 


PART (JO) 


1  ,1 

ms 

1979 

I960 

1981 

1982 

1983 
Aim . 
1985 

1986.. 

1987 

1988 
1999 
1916-. 
1991 
1962 
1993 

1999.. 
1995 
1956- 
1997 


PART ( 31 )  ■ 
PAHXtJai  • 

PART ( J8  )  ■ 

8 A?T {JO  )9 
PART (35)  • 
pART( J8 )  ■ 
PARTtii)  ■ 

jAmui-i 

PART ( 39 )  ■ 
P»*X{»9)  • 
PART (4*)  ■ 
_ PART t  *8 )  * 
PART (#3 )  - 

PART ( 48  )  ■ 

_FAI  14  HI  _■ 

PART ( *9 )  « 

PA»xt**9L - 

PART ( #9 )  ■ 
PA*T(SQ)  m 
PART (#1)  ■ 


7*13  8319  DISH* 

_ui<L2AXi  iaii 

•815  BST8  DISK" 

*il!  ?*?l  1111* 
•917  lost*  »m* 

"ij«  uwf  t.siR" 

•819  12*t*  »X*R« 
iilLlllILMlfl 
•821  REA*  »**!*• 
•360  Hit 
•301  lit*  (l$(« 

•302 ..am  disk* 

•503  2Sf*  DISK* 
•30*  1ST*  filf 
"505  1st*  mi« 

•ms  m  *vuf • . 

"•01  3st*  D!S*' 
"6Q2  «Sl|.  BUI" . 
■*03  «St*  *1S»" 
•100-0151  BOBU*" 
•900  Ace*  ouhhi* 


1999 
2600 
2901 
2QQ2  . 

JP(1)  *  1 

J1JL2)  «  2 

OF  (3)  *  9 

..  _ . . . 

jr(5)  *  wo 

....  JF(6)  *  U6 

*  so 
m»>  *  si 

'  03 
fc-0« 

2005 

2006 

2007 

2606 

C 

JF(9)  •  52 

2009 

C 

*  ACTUARIAL,  PlPtLlH* 

2010 

c 

2611 

c 

•  -  EMQIRE  -  - 

2012 

c 

2013 

2Q1U 

BENRTSPC  ■  7,0) 
BERAFH  •  5.75) 

2015 

2016 

c 

VBTE$T8H  ■  12)  » 

2017 

c 

-  -  AVGHENTOR  *>  * 

2016 

2019 

2920 

c 

HOT(I)  «  1000000 
Rfl)  •  1,0 

2021 
202  2 

ALOC( 1)  *  0.0 
SAXjll  *  1,0 

HDPCST  •  1*652)  RDPJPI  •  56 

EBfgST  ■  Iflll _ »8)H1  »  4 

>1>P  •  170*008)  MTRCST  iSQOOJ 


BVMTSPCM)  •  9,0)  Hpppljfl)  .  2*99;  MOPlPIfl)  •  *1 
BRKrtMl)  «  1,5067)  MbScSTH)  -  1751**11*1(1)  ■  * 

f)SiP(  1)  F  860000 

HTBCS'f  (  1 )  •  20**7  ~8»ITp«H<D  i"10  " 


2029 

2030 

2031 

2032 

2033 

20  3.4 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 


2043 

2044 

2045 

2046 

2047 

2048 
2949 

2050 

2051 

2052 

2053 

2054 


2055 

2056 

2057 

2o$a 

2059 

14M-. 

29C1 

2012 

2063 

2064 

2065 

2066 
20*7 
2068 
2069 
207Q 

2071 

2072 


2073 

2074 


*  -  accepsom*  V  KITH  !•*»«  LIMITS  -  • 

omTHOTll  I  ,W.  8  173*997  Q«073000  iTl  200 . 3  6  99  71 1 5  4  ;  1 »  *  67 
DATAfMiJyJ»2,8)/7*l,#/ 

DMTA(*idC(SWX«9f  i  )/7i«;e/ 

P4TA(JSCL(I)fI“2#8j/7*99O0O0/ 

_ DATA  tJSiy(gUI«3«  B)/5«10ao « 3190, 818/ _  _  _ 

BN8T$VQ ( 2 )  ■  0,01  SpPC*Tf2!  »  866*  HfTf¥ff2l  •  4 

B8KFH ( 1 )  ■  0,00001  *B»CST(3l  -  866;  M8PX»I<21  •  2 

nSL*(M|  n  0 


M**CS*f2}  »  0] 
,  -  islet  pam  *  * 


M»8»PMB(2) 


MHtW.ll*  >  UJ  fti.O  i  3  “  0  9  # 

PATAJ8<I),I  •9,I7)/9*g;20/ 

DATA^*tOC(l)tI«|#i?J/#40i0/ 

D»tM««Pei>,i.9#17U«lij#8*SiO/ 


3301,3000,5*10090/ 


DATA {JPCU I) »I»9i 171/6933. 1*990009/ _ _ _ _ 

"  p A T A (4 |LP( J)rX»9# 17 1/0, 73 1  (TT* 055710 1 6 
4194b, 1|$B, 1387, 744»104»/ 
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VII.  Program  Variables 


The  program  variables  used  in  OMENS  III  are  alphabetized 
and  listed  below  with  a  brief  explanation  of  each  immediately 
following  the  variable. 
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ALOC(J)  -  Weibull  location  parameter;  in  most  cases  this 
parameter  will  be  zero. 

AMONREM  -  screen  interval  defined  in  equivalent  months  of 
life  remaining. 

BENRTSPC  -  initial  base  engine  NRTS  percent. 

BERKFH  -  initial  base  level  engine  removals  per  1000  flying 
hours. 

BMHCST  -  base  man-hour  cost. 

BNRTSPC(M)  -  base  level  initial  NRTS  percent  by  module. 

BOTTOM  -  total  NRTS  alone  plus  total  NRTS  with  engine  plus 
total  base  removals  for  each  module. 

BRKFH(M)  -  base  removals  per  1000  flying  hours. 

DCONVR  -  conversion  factor  for  changing  months  of  utilization 
into  daily  demand  rate. 

DEPPC(M)  -  depot  level  removal  percent  by  module. 

DLCMDDR(M)  -  depot  life  cycle  module  daily  demand  rate. 

EAFH  -  engine  average  flying  hours. 

EANRTS  -  engine  average  NRTS  rate. 

ELCBASE  -  engine  life  cycle  base  removals. 

ELCDDR  -  engine  life  cycle  daily  demand  rate. 

ELCNRTS  -  engine  life  cycle  NRTS  removals. 

ENGINE  -  name  of  engine. 

ENRTSPC  -  engine  final  NRTS  percent  (output). 

ENRTSPCT  -  engine  seed  totals  NRTS  percent. 

EPIPEQTY  -  engine  pipeline  quantity. 

ERKFH  -  output  engine  removals  per  1000  flying  hours. 

ERKFHT  -  engine  seed  total  removal  /  1000  FH. 

ERTSPC  -  percent  engine  base  removals. 

FACMNRTS(M)  -  final  life  cycle  NRTS  alone  (not  Rule  of  X 
Policy  by  module. 

10 
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FACMRTS(M)  -  final  life  cycle  base  removals  remaining  at 
base  by  module. 

FACNRTSW(M)  -  final  life  cycle  Rule  of  X  Policy  NRTS  removals 
by  module. 

FKFH(M)  -  see  average  removals  per  1000  FH  by  module. 

FNRTS(M)  -  see  average  NRTS  percent  by  module. 

FNRTSPC(M)  -  final  NRTS  percent  by  module. 

FRKFH(M)  -  base  final  removals  per  1000  flying  hours  by 
module. 

FRKFHC(M)  -  total  final  removals  per  1000  flying  hours  by 
module. 

FRKFHD(M)  -  depot  final  removals  per  1000  flying  hours  by 
module. 

FTIME  -  time  in  hours  and  minutes  (in  clock  minutes). 

I  -  a  counter. 

IAOBGTOT  -  seed  total  of  MOBFNCST(M) . 

ICLOCK  -  clock  for  aging. 

IDCR  -  integer  value  of  variable  DCONVR. 

ILCMCST  -  engine  and  module  grand  total  maintenance  costs. 
IMGTLCPC  -  engine  and  module  grand  total  parts  costs. 

IMPIPCST  -  grand  total  pipeline  costs  for  engine  and  module. 
INDATA  -  name  of  data  set  being  used  (internal  to  program). 
IOBFNAX  -  seeds  total  NGTOTRT. 

I0BFNT0T  -  module  grand  total  maintenance,  pipeline,  and 
parts  costs. 

IP  -  print  indicator;  long  run  =*  0,  short  run  -  1. 

IPG  -  page  number. 

IRPTPRD  -  input  report  period  width. 
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ISCRN  -  screen  constant. 

IUSDRUN  -  #  of  seed  runs;  counts  up  to  ISMAX. 

ISIMPRD  -  total  number  of  simulation  years  in  program  run 

s 

ISIMYRS  -  total  #  of  simulation  years. 

•  4  i  L i  .  7  /•  j  i  •  .  /;  T  C  1  r,  r  .  -  -  v 

ISMAX  -  total  #  of  Seed  runs  done. 

ISSCRN  -  integer  value  of  the  percent  of  MOT  screen. 

(d  io/I  § f  _  ■ .  i 

ITIME  -  machine-supplied  time  during  program  run. 

IWS  -  integer  working  storage  in  warmup. 

IXCST  -  seed  total  of  ILCMCST. 

IXPART  -  seed  total  of  IMGTLCPC. 

IXPIP  -  seed  total  of  IMPIPCST. 

J  -  part  number. 

JF(N)  -  number  of  first  part  in  Mth  module. 

JJ  -  number  of  parts. 

JPART(J)  -  removal  code  for  parts. 

JPMOT(J)  -  maximum  operating  time  assigned  by  part. 

JSCL(J)  -  Weibull  scale  parameter;  this  is  similar  to  an 
actuarial  life  expectancy. 

JSCR(J)  -  screen  removal  for  part  J. 

JSCRT  -  grand  total  parts  screened  removals. 

JSLP(J)  -  stock  list  price  for  part  J. 

JTLCPCST(J)  -  total  life  cycle  parts  cost  for  each  part. 
JTM(J)  -  MOT  removal  for  part  J. 

JTMT  -  grand  total  parts  max  time  removals. 
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JTOL  -  tolerance  interval  constant. 

.JTOLR(J)  -  tolerance  removal  for  part  J. 

JTOLRT  -  grand  total  parts  tolerance  removals. 

JTOTR(J)  -  total  number  of  removals  for  part  J. 

JTOTRT  -  grand  total  parts  removals  for  all  causes. 

JTPSCHD(J)  -  total  scheduled  part  removals  by  module  for 
the  entire  simulation  period. 

JTTF(J)  -  time  til  failure  of  part  J. 

JTTL(J)  -  time  til  life  limit  of  part  J. 

JUDEP(J)  -  usage  screened  to  depot  removal  for  part  J. 

JUDEPT  -  grand  total  parts  usage  screened  to  depot  removals. 

JUSE(J)  -  usage  removal  for  part  J. 

JUSET  -  grand  total  parts  usage  removals. 

K  -  report  period  counter. 

K1  -  report  period  time. 

K3  -  time  remaining  this  report  period. 

KK  -  f  of  report  periods. 

KPI  -  constant  or  percent  indicator. 

KLAST  -  last  report  period. 

KPV(M)  -  screen  for  modules  1  through  8. 

KS  -  0  implies  standard  seed,  1  implies  random. 

KW  -  1  implies  warmup,  0  implies  none. 

LCMCST(M)  -  life  cycle  maintenance  cost,  both  depot  and 
base,  by  module. 

LCMCSTL(M)  -  depot  life  cycle  maintenance  costs  of  modules 
returned  to  depot  alone. 
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LCMCST(M)  -  base  life  cycle  maintenance  costs  by  module. 

LCMCST3(M)  -  depot  life  cycle  maintenance  costs  with  Policy 

by  module  for  modules  returned  to  depot  with  engine. 

LCST4 (M)  -  total  of  LCMCST(M)  and  LCMCST3(M)  by  modules. 

LCTECST  -  life  cycle  total  engine  maintenance  cost  for  depot 
and  base. 

LCTMCST  -  total  LCMCST(M)  for  all  modules. 

LCTMCST1  -  modular  totals  of  LCMCST1. 

LCTMCST3  -  modular  totals  for  all  LCMCST3(M). 

LCTMCST4  -  total  of  LCST4(M)  for  all  modules. 

LFCYC  -  life  cycle  period  in  years. 

LTIME  -  time  in  clock  seconds. 

LXCMST  -  seed  total  life  cycle  maintenance  costs. 

LXCMST3  -  seed  total  life  cycle  maintenance  costs  at  depot. 
LXCMST4  -  seed  totals  of  LXCMST  and  LXCMST4 . 

LXCST(M)  -  seed  total  life  cycle  maintenance  costs  by  module. 
LXCSTl(M)  -  seed  totals  of  LCMCSTl(M). 

LXCST2CM)  -  seed  totals  of  LCMCST2(M). 

LXCST3(M)  -  seed  totals  of  LCMCST3(M). 

LXCST4(M)  -  seed  totals  of  LCMCST4(M). 

LXECST  -  seed  total  engine  life  cycle  maintenance  cost. 

M  -  module  number,  used  as  counter  in  DO  loops. 

MASCR(M)  -  seed  screened  totals  by  module. 

MASCRT  -  seed  totals  for  screened  module. 

MATM(M)  -  seed  time  totals  by  module. 


112 


MATMT  -  seed  totals  for  module  time  removals. 

MAUD(M)  -  seed  U-Dep  totals  by  module. 

MAUDT  -  seed  totals  for  U-Dep  module  removals. 

MAUSE(M)  -  seed  usage  totals  by  module. 

MAUSET  -  seed  totals  for  usage  module  removals. 

MBIPE(M)  -  base  pipeline  in  days  by  module. 

MBSCST(M)  -  module  base  maintenance  cost. 

MBSEPMH(M)  -  module  base  separation  man-hours. 

MDPCST(M)  -  module  depot  maintenance  cost. 

MDPIPE(M)  -  depot  pipeline  in  days  by  module. 

MGTLCPCS(M)  -  module  grand  total  life-cycle  parts  cost  for 
each  module. 

MINF  -  minimum  JTTF(J). 

MINL  -  minimum  JTTL(J). 

MJSCRT(M)  -  total  JSCR(J)  for  all  J  in  module  M. 

MJTMT(M)  -  total  JTM(J)  for  all  J  in  module  M. 

MJTOLRT(M)  -  total  JTOLR(J)  for  all  J  in  module  M. 

MJTOTRT(M)  -  total  JTOTR(J)  for  all  J  in  module  M. 

MJUDEPT(M)  -  total  JUDEP(J)  for  all  J  in  module  M. 

MJUSET(M)  -  total  JUSE(J)  removals  for  all  J  in  module  M. 

MM  -  number  of  modules. 

MMC  -  multiple  module  counter  for  engine. 

MMM  -  module  counter. 

MNRTSWTH(M)  -  total  Rule  of  X  Policy  removals  by  module. 

MNRWTHTL  -  total  MNRTSWTH(M)  removals  for  all  modules. 

MOBFNCST(M)  -  total  LCST4(M)  plus  MPIPCST(M)  plus  MGTLCPCS(M) 
for  each  module. 

MOD(M)  -  module  removal  code. 
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MODSCR(M,K)  -  total  modules  removed  due  to  screened  out 
parts  by  module  and  by  report  period. 

MODTML(M,K)  -  total  time  module  removals  for  a  single  scheduled 
part  by  report  period  and  by  module. 

M0DTM2(M,K)  -  total  time  module  removals  (for  at  least  one 
schedule  part)  by  report  period  and  by  module. 

MODTOTR(M,K)  -  total  module  removals  for  all  causes  by  module 
and  by  report  period. 

MODULE(M)  -  name  of  module. 

MODUSEL(M,K)  -  total  usage  module  removals  for  a  single 
part  by  report  period  and  by  module. 

M0DUSE2(M,K)  -  total  usage  module  removals  (for  more  than 
one  part)  by  report  period  and  by  module. 

MONUTR  -  monthly  utilization  rate  in  flying  hours. 

MOT(J)  -  input  life  limit  for  part  J  in  either  TOT  or  cycles 
as  appropriate. 

MPC  -  multiple  parts  counter  for  module. 

MPIPCST(M)  -  total  pipeline  cost  per  module. 

MR3  -  #  of  "rule  of  3"  modules  with  removals. 

MRTS(M)  -  module  base  removals  remaining  at  base. 

MRTST  -  total  module  RTS  removals. 

MRULE  -  X  value  for  Rule  of  X  Policy. 

MSCHNRTS(M)  -  module  scheduled  NRTS. 

MSCHNRTT  -  total  module  scheduled  NRTS. 

MSCR(M)  -  module  screen. 

MSCRN(M)  -  screen  interval  for  the  Mth  module. 

MSCRNRTS(M)  -  module  screened  removals  by  module. 
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MSCRNRTT  -  total  of  MSCRNRTS(M)  for  all  modules. 

MSCRT  -  total  screened  modules. 

MSLP(M)  -  stock  list  price  by  module. 

MTM(M)  -  module  max  time  removal. 

MTMT  -  total  of  module  max  time  removals. 

MTNRTS(M)  -  total  NRTS  removals,  not  Rule  of  X  Policy,  by 
module. 

MTNRTST  -  total  MINRTS(M)  for  all  modules. 

MTOTR(M)  -  number  of  modules  removed  this  period. 

MTOTRT  -  total  number  of  modules  removed. 

MTPIPCST  -  total  MPIPCST(M)  for  all  modules. 

MTRCST(M)  -  module  transportation  cost  by  module. 

MTSCR(M)  -  total  MODSCR(M,K)  by  module  for  all  report  periods. 

MTTMl(M)  -  total  M0DTM1(M,K)  by  module  for  all  report  periods. 

MTTM2(M)  -  total  M0DTM2(M,K)  by  module  for  all  report 

periods. 

MTTOTR(M)  -  total  MODTOTR(M,K)  removals  for  all  report  periods 
by  module. 

MTUSEl(M)  -  total  M0DUSE1(M,K)  for  all  report  periods  by 
module. 

MTUSE2(M)  -  total  M0DUSE2(M,K)  for  all  report  periods  by 
module. 

MUD(M)  -  module  usage  to  depot  removal. 

MUDT  -  total  MUD(M)  for  all  modules. 

MULTF  -  counter  of  multiple  part  failures. 

MULTL  -  counter  of  multiple  parts  scheduled. 

MUNRTS(M)  -  usage  removals  by  module. 

MUNRTST  -  total  MUNRTS(M)  for  all  modules. 

MUSE(M)  -  module  usage  removals. 

MUSET  -  total  MUSE(M)  for  all  modules. 
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MUSNRTS(M)  -  usage  screened  removals  by  module. 

MUSNRTST  -  total  MUSNRTS(M)  for  all  modules. 

MXGPCS(M)  -  seed  total  parts  costs  by  module. 

MXOKNRTS(M)  -  by  module,  total  shipped  to  depot  as  part 

of  the  Rule  of  X  Policy  but  not  needing  repair. 

MXOKNRTT  -  total  MXOKNRTS(M)  for  all  modules. 

MXPIP(M)  -  seed  total  pipeline  costs  by  module. 

MXPIPT  -  seed  total  pipeline  costs. 

MXSCHNRT(M)  -  by  module,  scheduled  Rule  of  X  Policy  removals. 
MXSCHNTT  -  total  MXSCHNRT(M)  removals  for  all  modules. 
MXSCRNRT(M)  -  by  module,  screened  Rule  of  X  Policy  removals. 
MXSCRNTT  -  total  MXSCRNRT(M)  for  all  modules. 

MXTOT  -  seed  totals  for  module  removals  summary. 

MXTRAN  -  seed  totals  for  transportation  costs. 

MXTRCST(M)  -  seed  totals  by  module  for  transportation  costs. 
MXUNRTS(M)  -  by  module,  total  usage  Rule  of  X  removals. 
MXUNRTST  -  total  MXUNRTS(M)  for  all  modules. 

MXUSNRTS(M)  -  by  module,  total  usage-screen  Rule  of  X  removals 
MXUSNRTT  -  total  MXUSNRTS(M)  for  all  modules. 

NBPIPE  -  engine  base  pipeline  in  days. 

NBSCST  -  base  engine  maintenance  cost. 

NBTESTMH  -  engine  base  test  man-hours. 

NDPCST  -  engine  depot  maintenance  cost. 

NDPIPE  -  engine  depot  pipeline  in  days. 


NENGBASE  -  engine  base  removals. 

NENGNRTS  -  engine  base  removals  that  were  NRTS  as  Rule  of 
X  Policy 

NENGTOT  -  engine  total  removals. 

NERC  -  engine  removal  code. 

NGTLCPCS  -  total  MGTLCPCS(M)  for  all  modules. 

NGTMl(K)  -  engine  grand  total  single  module  removals  by 
report  period. 

NGTM1T  -  total  of  NGTMl(K)  removals  for  all  report  periods. 

NGTM2(K)  -  engine  removals  by  report  period  for  more  than 
one  module  with  at  least  one  scheduled  module. 

NGTM2T  -  total  of  NGTM2 (K)  removals  for  all  K  periods. 

NGTOTR(K)  -  engine  total  removals;  all  causes  by  report 
period. 

NGTOTRT  -  grand  total  NGTOTR(K)  for  all  K  periods. 

NGUSEl(K)  -  engine  usage  removals  by  report  period  for  a 
single  module. 

NGUSE1T  -  total  engine  usage  removals  for  a  single  module. 

NGUSE2(K)  -  total  usage  engine  removals  by  report  period. 

NGUSE2T  -  total  of  NGUSE2(K)  for  all  report  periods. 

NN  -  number  of  entries  in  JF  array  (equals  MM+1). 

NOBFNCST  -  complete  engine  total  maintenance  and  pipeline 
costs. 

NTRCST  -  engine  transportation  cost. 

NSLP  -  engine  stock  list  price. 

NTPIPCST  -  engine  total  pipeline  cost. 

NXBASE  -  engine  seed  totals  base  costs. 

NXBFN  -  seeds  total  base  alone  maintenance  costs. 

NXDEPO  -  engin*  seed  totals  depot  costs. 


NXPCST  -  seeds  total  parts  costs. 

NXPIP  -  engine  seed  totals  pipeline  costs. 

NXTRAN  -  engine  seed  totals  transportation  costs. 

PART(J)  -  name  of  Jth  part. 

PIPEQTYM(M)  -  pipeline  quantity  by  module. 

R(J)  -  ratio  of  TOT  to  EFH  or  to  cycles  per  flying  hour. 

R FAC TOR  -  R  factor  to  convert  ratios  to  engine  flying  hours. 

RLCPSCHD(J)  -  total  scheduled  part  removals  by  module  for 
the  life  cycle. 

SCL(J)  -  scale  parameter  for  Weibull. 

SCLE  -  part  scale  parameter. 

SCRINEFH  -  screen  converted  to  engine  flying  hours. 

SDTYP  -  seed  type  (random  or  standard). 

SEED  -  random  number  seed. 

SIMYRS  -  number  of  simulation  years  for  program  run. 

SHP(J)  -  Weibull  shape  parameter  (  or  =  1)  1  implies  exponential 
1  implies  removal  rates  which  increase  with  age. 

TOP  -  total  NRTS  alone  plus  total  NRTS  with  engine  for  each 
module. 

TOTPC(M)  -  total  percent  removals  for  cause  repaired  at 
depot. 

TTF  -  time  til  failure. 

XDATE  -  calendar  date  by  month,  day,  and  year. 
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